Function AddToFavoriteDlg(Title,URL:OLEVariant) : Boolean;
Const
 CLSID_ShellUIHelper: TGUID = 

'{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';
Var
 ShellUIHelper: ISHellUIHelper;
Begin
 Try
 If Url <> '' Then Begin
 ShellUIHelper := CreateComObject(CLSID_SHELLUIHELPER) 

as IShellUIHelper;
 ShellUIHelper.AddFavorite(url, title);
 End;
 Result := True;
 Except
 Result := False;
 End;
END;

procedure TForm1.Button1Click(Sender: TObject);
 begin
 AddToFavoriteDlg('DelphiCode','http://www.delphicode.ru');
 end;