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]