Delphi GetMem() //malloc

var

  buf1: PAnsiChar;

  buf2: PAnsiChar;

  buf1_size: DWORD;

  buf2_size: DWORD;

begin

....

  GetMem(buf1, buf1_size * SizeOf(AnsiChar));

  GetMem(buf2, buf2_size * SizeOf(AnsiChar));

....

end;