ПрогрессБар при загрузке программы

[MyIE]

Такая фигня: есть функция, которая выполняется через n секунд после старта программы:

procedure TForm1.TimerLoadStreamListTimer(Sender: TObject);
begin
Form2.Show;
TimerLoadStreamList.Enabled:= false;
LoadStreamList;
end;

Я показываю Form2 не модально, но когда начинает выполняться функция LoadStreamList, то Form2 виснет. На Форме2 есть компонент memo, так вот даже в нем ничего нельзя писать.
Функция LoadStreamList выполняется довольно долго, говоря кратко, там идет работа с сервером и с xml файлами(удаленно).

Я бы хотел, чтобы пока выполняется эта функция, работало бы Form2 и там я бы сделал какой-нить ПрогрессБар.

ВОПРОС: почему висит Form2, при работе функции LoadStreamList?
Ведь окно показывается не модально и должно выполняться попутно с Form1.

procedure TForm1.LoadStreamList;
var
  i : LongInt;
  NewNode: PVirtualNode;
  NewSL: PSLNode;
begin
VST.Clear;
for i:=1 to 9 do
begin
XMLD.LoadFromFile('http://mysite.com/rss/xml');
XMLD.Active := true;
NewNode := VST.AddChild(nil);
NewSL := VST.GetNodeData(NewNode);
if Assigned(NewSL) then
with NewSL^ do
begin
URL:= XMLD.DocumentElement.ChildValues['peremennaja1'];
end;
XMLD.Active := false;
end;
end;

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[Arkuz]

Попробуй LoadStreamList засунуть в поток

[MyIE]

Пробовал - так же Form2 висит.
-----
P.S. а я им и оформлял(#).

[maLoy*508]

попробуй добавить

Application.ProcessMessages;

[Arkuz]

Сообщение от MyIE

Пробовал - так же Form2 висит.

Ну попробуй приоритет пониже...