Kod:
uses kısmına Registry unitini ekleyin;
procedure TForm1.Button1Click(Sender:TObject);
var
reg: TRegIniFile;
begin
reg := TRegIniFile.create('SOFTWAREMICROSOFTMS SETUP (ACME)');
Memo1.Lines.Add(reg.ReadString('USER INFO',
'DefName',
'TurkHackTeam'));
Memo1.Lines.Add(reg.ReadString('USER INFO',
'Company',
'Bilgisayar Bilimleri Müh.'));
reg.free;
end;