как вызвать процедуру из другой процедуры?

[Базиля]

Почему? Без него как раз задерживаться не будет а будет прямо так пролетать.

А для чего он нужен, если все необходимые действия можно прописать в процедуре

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
               const pDisp: IDispatch; var URL: OLEvariant);

[impulsgraw]

А, ну да, логично))

[GunSmoker]

Жесть...

impulsgraw, когда тебе приходит посылка по почте, то к тебе приходит почтальон и приносит тебе уведомление о посылке, чтобы ты знал, что тебе пришла посылка и ты мог бы забрать её с почтового отделения. Предположим, прямо сейчас ты ждёшь определённую посылку. Вот ты тогда говоришь: "мне нужно будет сходить на почту (выполнить определённые действия), когда придёт уведомление (вызовется DocumentComplete), но не раньше. Поэтому я сам себе принесу уведомление (сам вызову DocumentComplete) и пойду на почту (выполню свои действия)".

Должно быть очевидно, что от того, что ты что-то там сделал сам, другой код (в данном случае - браузер) от этого свою работу волшебным образом не выполнит (только потому, что ты сказал, что она выполнена).

Что тебе действительно нужно - идти на почту (выполнять действия) по приходу почтальона (вызову события DocumentComplete), например:

procedure TForm1.Button1Click(Sender: TObject);
begin 
  ListBox1.Tag := 0;
  TakeURL;
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OLEvariant);
begin
  if TakeURL then
    Label4.Caption := IntToStr(ListBox1.Tag)
  else
    label1.caption := 'ГОТОВО!!!';
end;

function TForm1.TakeURL: Boolean;
var
  URL: String;
begin
  if ListBox1.Tag >= ListBox1.Items.Count then
  begin
    Result := False;
    Exit;
  end;

  URL := ListBox1[ListBox1.Tag];
  ListBox1.Tag := ListBox1.Tag + 1;

  WebBrowser1.Navigate(URL);  
  Result := True;
end;

[impulsgraw]

var loaded: boolean = false; // флаг "загружна-ли страничка?"

procedure TForm1.Button1Click(Sender: TObject);
begin 
for  i := 0 to ListBox1.Items.Count-1 do begin
loaded := false; // присваиваем флагу "загружна-ли страничка?" знаение false
WebBrowser1.Navigate(URL); // переходим по нужному адресу
{WebBrowser1.Navigate() параллельно остальным процессам загружает страничку в окно webbrowser1 и по окончанию действия САМ(!!!!!) вызывает WebBrowser1DocumentComplete() с нужными параметрами, где флагу "загружна-ли страничка?" присваивается верное значение, что происходит не сразу}
repeat {} until(loaded = true); // ждём окончания загрузки странички - пока флаг "загружна-ли страничка?" равен false, страничка на загружена полностью
Label4.Caption:=IntToStr(i); //... выполняем остальные действия
Application.ProcessMessages();
end;
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
               const pDisp: IDispatch; var URL: OLEvariant);
begin
loaded := true; // присваиваем флагу "загружна-ли страничка?" значение да, чтобы цикл until прервался и выполнение функции Button1Click продолжилось
label1.caption := 'ГОТОВО!!!'; //... выполняем остальные действия
end;

так понятно?

[evg_m]

TForm1 =class(TForm)
private
  itemindex: integer;
  procedure LoadNextPage;
.....
end;

procedure TForm1.LoadNextPage;
var
  url: string;
begin
  if itemindex<ListBox1.count then begin
    url:=Listbox1.Items[itemindex];
    WEbBrowser1.Navigate(url);
    label1.caption:=url; // индикация текущей (загружаемой!) страницы
  end
  else 
    label1.caption:='ВСЕ!';
  label1.update; 
end;

procedure TForm1.Button1Click(Sender: TObject);
begin 
  itemindex:=0; // указываем что будем грузить начиная с первого(нулевого) индекса
  LoadNextPage; // просим начать загрузку страницы
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
               const pDisp: IDispatch; var URL: OLEvariant);
begin
  // страница получена
  itemindex:=itemindex+1;
  LoadNextPage; // просим начать загрузку следующей
end;

[impulsgraw]

var loaded: boolean = false;

procedure TForm1.Button1Click(Sender: TObject);
begin 
  for  i := 0 to ListBox1.Items.Count-1 do
begin
                 loaded := false;
                 WebBrowser1.Navigate(URL); 
                 label1.caption := 'загрузка';
                 repeat 
                  Application.ProcessMessages();
                  label1.caption := label1.caption + '.';
                  sleep(1000);
                 until(loaded = true);
                 Label4.Caption:=IntToStr(i);
                 Application.ProcessMessages();
 end;
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
               const pDisp: IDispatch; var URL: OLEvariant);
begin
loaded := true;
label1.caption := 'ГОТОВО!!!';
end;

вот вам и индикация со всеми удобствами... там по моему даже у самого компонента есть событие, вызываемое в начале загрузки страницы.

[bakanaev]

Ребята все спасибо, каждому поставил по +
P.S evg_m, остановился на твоем варианте
P.P.S impulsgraw, спасибо конечно но пустой цикл, будь то while или repeat, грузят мой проц на 70-80.