Модуль: System

Описание
Функция возвращает размер памяти, которую занимает переменная X в байтах. Результат функции зависит только от типа переменной X и не зависит от ее значения. Данную функцию удобно использовать совместно с процедурами FillChar, Move, и GetMem.

Пример
type
MyRec = record

   Day: string[30];
   Month: Byte;
   Year: Word;
   DayOfWeek: Char;
end;
var
   Date: ^MyRec;
begin
   GetMem (Date, SizeOf(MyRec));
   MessageDlg ( 'Запись занимает :' + IntToStr(SizeOf(MyRec)), mtInformation, [mbOk], 0);
   FreeMem (Date, SizeOf(MyRec));
end;