[NumLock]

Код:

type
  Tr = ^r;
  r = record
    i: Integer;
    b: Byte;
    w: Word;
    d: DWORD;
    a: array [0..$ff] of Byte;
  end;
var
  p: Tr;
  i: Integer;
  b: Byte;
  w: Word;
  d: DWORD;
  a: array [0..$ff] of Byte;
begin
  Edit1.Text:='SizeOf(p)='+IntToStr(SizeOf(p))+' SizeOf(p^)='+IntToStr(SizeOf(p^));
  New(p);
  p^.i:=1;
  p^.b:=2;
  p^.w:=3;
  p^.d:=4;
  p^.a[0]:=5;
  p^.a[1]:=6;
  i:=p^.i;
  b:=p^.b;
  w:=p^.w;
  d:=p^.d;
  Dispose(p);
end;

SizeOf(p)=4 SizeOf(p^)=268