procedure TForm1.Button1Click(Sender: TObject);
var
s : string ;
P : pointer ;
i : integer ;
begin
s :='ABC';
P := pointer(integer(@s[1])-8) ;
caption := '';
for i := 0 to 10 do
begin
caption := caption +' '+IntToHex(PByte(P)^,2);
p:=pointer(integer(p)+1);
end;
end;