Favouriten in eigenem Webbrowser

[arbu man]

Diser Code sollte dir weiterhelfen, leg einfach eine Datei an die die Favoriten enthält

Delphi-Quellcode:

procedure TForm1.itemclick(sender:TObject);
begin
  if sender is TMenuItem then webbrowser1.navigate((sender as TMenuItem).Caption);
end;

procedure TForm1.setitems(inkfile:string;addto:TMenuItem);
var nitem: TMenuItem;
    i: Integer;
    list:tstringlist;
begin
  list:=tstringlist.Create;
  list.LoadFromFile(inkfile);
  i:=0;
  for i :=i to list.Count - 1 do
  begin
    nitem := TMenuItem.Create(Self);
    nitem.Caption := list[i];
    nitem.OnClick := itemclick;
    addto.Add(nitem);
  end;
end;

der ganze Code hier