type
  TRec=packed record
    ..
  end;

program SizeofTest;

{$A-}

Uses
  SysUtils;

Type
  PPony=^TPony;
  TPony=record
    Twilight:byte;
    Rarity:word;
    Applejack:string;
  end;
  TPoniez=array of TPony;

procedure PrintPony(Pony:PPony);
begin
  Writeln(
    'Twilight=',inttohex(Pony^.Twilight,2),
    ' Rarity=',inttohex(Pony^.Rarity,4),
    ' Applejack=',inttohex(IntPtr(@Pony^.Applejack[1]),8)
  );
end;

procedure PrintInternal(const V;Size:word);
var
  P:PByte;
begin
  P:=@V;
  while Size>0 do begin
    Write(inttohex(P^,2),' ');
    Inc(P);
    Dec(Size);
  end;
  Writeln;
end;

var
  P:TPony;
  Ps:TPoniez;
  I:integer;
begin
  P.Twilight:=$AA;
  P.Rarity:=$1234;
  P.Applejack:='Applez';
  SetLength(Ps,4);
  For I:=0 to 3 do begin
    Ps[I].Twilight:=I;
    Ps[I].Rarity:=2*I;
    Ps[I].Applejack:=inttostr(I*4);
  end;
  PrintPony(@P);
  PrintInternal(P,sizeof(P));
  For I:=0 to 3 do begin
    PrintPony(@Ps[I]);
    PrintInternal(Ps[I],sizeof(Ps[I]));
  end;
  Readln;
end.

program AlignTest;

{$APPTYPE CONSOLE}
{$A4}

type
  TComplex = record
    re: Extended;
    im: Extended;
  end;

var z: TComplex;

DCX: array of TComplex;

procedure test(const z: TComplex);
begin
  Writeln(SizeOf(z):4, SizeOf(z.re):4, SizeOf(z.im):4, integer(@z):10, integer(@z.re):10, integer(@z.im):10);
end;

begin
  test(z);
  test(dcx[0]);
  test(dcx[1]);
end.

program AlignTest;

{$APPTYPE CONSOLE}

type
  TComplex = record
    re: Extended;
    im: Extended;
  end;

var z: TComplex;

DCX: array of TComplex;

begin
  Writeln(SizeOf(z):4, SizeOf(z.re):4, SizeOf(z.im):4);
  Writeln(SizeOf(dcx[0]):4, SizeOf(dcx[0].re):4, SizeOf(dcx[0].im):4);
  Writeln(Integer(@dcx[0]):4,Integer(@dcx[1]):4);
end.