Code:

uses

{...,}Registry;

function GetIEStartPage: string;

var

Reg: TRegistry;

begin

Reg := TRegistry.Create;

try

   Reg.RootKey := HKEY_CURRENT_USER;

   Reg.OpenKey('Software\Microsoft\Internet Explorer\Main', False);

   try

     Result := Reg.ReadString('Start Page');

   except

     Result := '';

   end;

   Reg.CloseKey;

finally

   Reg.Free;

end;

end;

function SetIEStartPage(APage: string): Boolean;

var

Reg: TRegistry;

begin

Reg := TRegistry.Create;

try

   Reg.RootKey := HKEY_CURRENT_USER;

   Reg.OpenKey('Software\Microsoft\Internet Explorer\Main', False);

   try

     Reg.WriteString('Start Page', APage);

     Result := True;

   finally

     Reg.CloseKey;

     Result := False;

   end;

finally

   Reg.Free;

end;

end;

// Show the Startpage

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage(GetIEStartPage);

end;

// Set the Startpage

procedure TForm1.Button2Click(Sender: TObject);

begin

SetIEStartPage('http://forum.vingrad.ru');

end;