var X : string = ^I; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(IntToStr(Ord(X[1]))); end;