
(*
 Delphi Object and Component Reference
#{bmc bm10.BMP} SizeOf example
type
  CustRec = record
    Name: string[30];
    Phone: string[14];
  end;
 var
  P: ^CustRec;
begin
  GetMem(P, SizeOf(CustRec));
  Canvas.TextOut(10, 10, 'The size of the record is ' + IntToStr(SizeOf(CustRec)));
  FreeMem (P, SizeOf(CustRec));
end; 
