sizeof.pas

 {Sizeof.PAS}
 
 { Пример программы для функции SizeOf }
 
 Type CustRec = Record
           Name : String[30];
          Phone : String[14];
                End;
 Var P : ^CustRec;
 
 Begin
  GetMem(P, SizeOf(CustRec));
 End.