[poli-smen]

Пробуй так:

Код:

uses StrUtils;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: Integer;
  url: string;
begin
  Timer1.Enabled := False;
  try
    for i := 0 to Memo1.Lines.Count - 1 do
    begin
      url := Memo1.Lines[i];
      if AnsiStartsText('http://www.delphisources.ru/', url) then
      begin
        WebBrowser1.Navigate(url);
        while Webbrowser1.ReadyState <> READYSTATE_COMPLETE do
        begin
          Sleep(100);
          Application.ProcessMessages;
        end;
        Button1Click(nil);
        Memo1.Clear;
        Break;
      end;
    end;
  finally
    Timer1.Enabled := True;
  end;
end;