Примерно так
aointer to array [0...2000] of byte;
x:string(255);
a:=ADR(X);
a[4]:=0;