Спасибо Вам всем большое за помощь! Я до этого как-то писал,
что я только сел за Delphi и для меня пока что это всё - тёмный лес.
Я PHP кодер =(
Так вот. Наконец-то сделал. В "DelphiWorld" нашел такую штуку:
PHP код:
procedure Delay(Value: Cardinal);
var
F,N: Cardinal;
begin
N:=0;
while N<=(Value div 10) do
begin
SleepEx(1,True);
Application.ProcessMessages;
Inc(N);
end;
F:=GetTickCount;
repeat
Application.ProcessMessages;
N:=GetTickCount;
until(N-F >= (Value mod 10)) or (N<F);
end;
В момент загрузки делаю X:=true; до этого выполняю процесс, откуда, сосбственно и вызываю загрузку.
Среди этих процессов, там, где нужно подождать, делаю:
PHP код:
while not X=true do
begin
delay(5000);
5000 просто для примера, так вообще туда переменная помещается.
Каким бы странным такой метод не казался, он работает именно так, как мне необходимо.
Еще раз всем большое спасибо!