Umwandeln eines Characters

[gro]

Besten Dank. Das "Ord" wars
Und so funktionierts auch unter Android

Delphi-Quellcode:

procedure THeaderFooterForm.Button1Click(Sender: TObject);
var
  szInputString : String;
  szEncodeString : String;
  szDecodeString : String;
  iValue, iIndex : Integer;

begin
  szInputString := '€';
  iIndex := 1;
  {$IFDEF ANDROID}
    iIndex := 0;
  {$ENDIF}

  // umwandeln to einem Hexstring
  iValue := Ord(szInputString[iIndex]);
  szEncodeString := IntToHex(iValue, 4);

  // Rückwandeln der Hexwertes in einen String
  iValue := StrToInt('$' + szEncodeString);
  szDecodeString := chr(iValue);

end;

Besten Dank nochmals