//Пример кода : Показ размер некоторых типов данных и переменных 
var
  intNumber : Integer;
  extNumber : Extended;
  sentence  : string;

begin
  // Показ размеров численных типов данных
  ShowMessageFmt('  SizeOf(Integer) = %d',[SizeOf(Integer)]);
  ShowMessageFmt('SizeOf(intNumber) = %d',[SizeOf(intNumber)]);
  ShowMessageFmt(' SizeOf(Extended) = %d',[SizeOf(Extended)]);
  ShowMessageFmt('SizeOf(extNumber) = %d',[SizeOf(extNumber)]);

  // Строковые типы и переменные - указатели на фактические строки
  sentence := 'A long sentence, certainly longer than 4';
  ShowMessageFmt('   SizeOf(string) = %d',[SizeOf(string)]);
  ShowMessageFmt(' SizeOf(sentence) = %d',[SizeOf(sentence)]);
end;

//Пример кода : Использование GetMem, чтобы распределить память для десяти записей 
type
  TRecord = Record
    name : string[10];
    age  : Byte;
  end;

var
  recStorage : PChar;

begin
  // Показ размера нашего типа записи
  ShowMessageFmt(' SizeOf(TRecord) = %d',[SizeOf(TRecord)]);

  // Распределение памяти для этих 10 записей
  GetMem(recStorage, 10 * SizeOf(TRecord));
end;