procedure TForm1.Button1Click(Sender: TObject);
 begin
 with TRegistry.Create do
 begin
 RootKey:=HKEY_CURRENT_USER;
 if OpenKey('Software\Microsoft\Internet Explorer\Main', TRUE) then
 ShowMessage(ReadString('Start Page'))
  else
 MessageDlg('Registry read error', mtError, [mbOk], 0);
 CloseKey;
 end;
 end;