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

Var Benutzer, Firma, System, WinProdctkey, CPU, Resolution: String;
begin
Reg:= Tregistry.create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\Software\Microsoft\MS Setup (ACME)\User Info\', false);
Benutzer:=Reg.ReadString('Defname');
Firma:=Reg.ReadString('Defcompany');
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('\System\CurrentControlSet\Control\ComputerName\ComputerName\', false);
Computername:=Reg.ReadString('ComputerName');
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion', false);
System:=Reg.ReadString('Version');
WinProductkey:= 'Reg.ReadString('Productkey');
Resolution:=Inttostr(Screen.Width)+' * '+Inttostr(Screen.height));
Reg.OpenKey('\Hardware\Description\System\CentralProcessor\0\', false);
CPU:=Reg.ReadString('Identifier')+' ['+Floattostr(Round(GetCpuSpeed))+' MHZ ]');
reg.free;					

1:

ListBox.Items.Append('Benutzer: ' + Benutzer);					

1:

Edit1.Text := 'Benutzer: ' + Benutzer