Übersetzen in Delphi

[ECO]

Hallo!!
Ich möchte mich bei allen bedanken für die schnelle Hilfe.
Vielen Dank an alle die mir geholfen haben.
Ich habe hier noc<h mal den kompletten Code.

Delphi-Quellcode:

uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls,Math, XPMan; 

type 
TForm1 = class(TForm) 
Edit1: TEdit; 
Button1: TButton; 
Edit2: TEdit; 
XPManifest1: TXPManifest; 
procedure Button1Click(Sender: TObject); 
private 
{ Private-Deklarationen } 
public 
{ Public-Deklarationen } 
end; 

var 
Form1: TForm1; 


implementation 
{$R *.dfm} 


procedure TForm1.Button1Click(Sender: TObject); 
var 
Name: String; 
NameLong: Integer; // exakter wäre Cardinal 
serial :Integer; // s.o. 
CharTemp: char; 
serialTemp: Integer; 
i: Integer; 
begin 
Name := Edit1.Text; // Name ist ein TEdit 
NameLong := Length(Edit1.Text); 
serial := 0; 
//if Length (Edit1.Text) < 4 then Showmessage ('Mindestens 4 Zeichen eingeben!!!'); 


for i := 1 to NameLong do 
begin 
CharTemp := Name[i]; 
CharTemp := Chr(Ord(CharTemp) xor i); 
serial := serial + ord(CharTemp); 
end; 


serialTemp := ord(CharTemp) * 6; 
serial := serial shl 7; 
serial := serial + serialTemp; 
if Length (Edit1.Text) < 4 then Edit2.Text:= ('Mindestens 4 Zeichen eingeben!!!') 
else 
Edit2.Text := Format('%X', [serial]); 

end; 
end.

So funktioniert es 100%.
Danke
ECO

[edit=Admin]Code in Delphi-Tags gesetzt. Künftig bitte selber machen. Danke sehr. Mfg, Daniel[/edit]