Ich habs!!!!!!!!!!
Delphi-Quellcode:
For anzahl := 0 to memLinks.Lines.Count - 1 do
begin
If wbs1.ReadyState >= READYSTATE_COMPLETE then
begin
wbs1.Navigate(memLinks.Lines.Strings[anzahl]);
//nur ums richtig zu sehen
sleep(1000);
Application.ProcessMessages; // --> die entscheidende Zeile
end;
//memLinks.Lines.Delete(anzahl);
end;
Das Forum hat mir dabei gut geholfen! In Zukunft werde ich erst mal suchen.