procedure GetStr(src: PChar);

・・・・

var
　Buf: array[0..2047] of Char; //0から始まっているのがミソ！
begin
　GetStr(buf);
end;

としていいんだよね？