aaa: pointer to byte;
bbb:string;


aaa:=ADR(bbb);

А лучше наоборот,
aaa:array [0...255] of byte;
pstring: pointer to string;

pstring:=adr(aaa);

и везде, где надо использовать STRING вставляете ^pstring;