type
  TCustomer = Record
    name : string[20];
    age  : Byte;
  end;

var
  custRecPtr : ^TCustomer;

begin
  // Создание записи клиента используя 'New'
  New(custRecptr);

  // Присвоение ему значений
  custRecPtr.name := 'Her indoors';
  custRecPtr.age  := 55;

  // Теперь показываем эти значения
  ShowMessageFmt('%s is %d',[custRecPtr.name, custRecPtr.age]);

  // Теперь избавляемся от этой распределенной записи
  Dispose(custRecPtr);
end;