procedure TForm1.Button1Click(Sender:TObject); 

var 

reg: TRegIniFile; 

begin 

reg := TRegIniFile.create('SOFTWARE\MICROSOFT\MS SETUP (ACME)\'); 

Memo1.Lines.Add(reg.ReadString('USER INFO', 

'DefName', 

'Hasan E.')); 

Memo1.Lines.Add(reg.ReadString('USER INFO', 

'DefCompany', 

'Kontrol ve Otomasyon Tekniker.')); 

reg.free; 

end;