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;