vc的结构如何用delphi来表示？

type
  avcstruct   =   record
      char1   :   pchar;
      char2   :   pchar;
      int1   :   integer;
      char3   :   pchar;
  end;
var
  strc,strc1 : avcstruct;
  a1,a2,a3 : array[0..1023] of char;
begin
  //写法1
  strc.char1 := @a1;
  strc.char2 := @a2;
  strc.char3 := @a3;
  strc.int1 := 1;

  dllfunc（avcstruct);

  //写法2
  getmem（strc1.char1,1024);
  getmem（strc1.char2,1024);
  getmem（strc1.char3,1024);
  strc1.int1 := 1;

  dllfunc（avcstruct1);

  freemem（strc1.char1);
  freemem（strc1.char2);
  freemem（strc1.char3);
end;