>565
こういう感じじゃいかんの？
var
Buf:array of Char;
begin
SetLength(Buf,10);