Quellcode des Programms in Delphi übersetzen - Hilfe gesucht

[KSebi]

So also hab schonma rausgefunden wie ichn char in en interger bekomme.

Hier mal mein derzeitiger Quellcode:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  i:integer;
  EAX,EBX:real;
  serial:string;

begin                        {Procedure}
if length(Edit1.Text) < 3 then
  Edit2.Text := 'Der Benutzername ist zu kurz!'
else if length(Edit1.Text) > 50 then
  Edit2.Text := 'Der Benutzername ist zu lang!'
else
begin                        {if}
  for i:=1 to length(Edit1.Text) do
  begin
    EAX := integer(Edit1.Text[i]); {Get char }
      {EAX := EAX Xor 201527; }<---------------------------- Frage 1
      EAX := EAX + 3735928559;
      EAX := EAX * 1638;
      EAX := EAX - 464370355;
      EAX := EAX * (2*2*2);
      {EAX := EAX Xor 3545092109;   }<---------------------- Frage 1
      EBX := EBX + EAX;
  end;
  {Hier muss EBX noch in einen HEX-Wert geändert werden}<------------- Frage 2
  serial := FloatToStr(EBX);
  Edit2.Text := serial;
end;                         {if}
end;                         {Procedure}

Frage 1: Und zwar wie schaffe ich es, dass Delphi dieses Xor berechnen kann, denn im Moment bricht er ab?
Frage 2: Wie wandel ich den Wert dann in en Hex-Wert um?


Schonma vielen Dank.