1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.FormCreate(Sender: TObject);
Var newpath, username, oldpath:string;
begin
oldpath:=ExtractFilePath(Paramstr(0))+'reg736.txt';
username:=GetUserNameStr;
newpath:='C:\Dokumente und Einstellungen\'+username;

  if fileexists(oldpath) then begin
  MStatus.lines.add('Pfad der Lizenz:');
  Mstatus.lines.add(oldpath) end;

Mstatus.lines.add('Benutzername:');
Mstatus.lines.add(username);

Mstatus.lines.add('Zielpfad der Lizenz');
Mstatus.lines.add(newpath);

CopyFile((pchar(oldpath)),(Pchar(newpath)), true);
end;