Форум АНТИЧАТ - Показать сообщение отдельно - Xml и зависание главной формы

Привет всем знатокам!!
вопрос есть некий XML документ на сервере Я ЕГО загружаю и парсю но при этом процесе
главная форма зависает ! как мне ето обойти ? без потоков делаю так.

PHP код:


		
			
procedure TForm1.Button1Click(Sender: TObject);

var

 //CityID: string;

 CoDoc: CoDOMDocument;

 XMLD: DOMDocument;

 r: IXMLDOMElement;

 FNode: IXMLDOMNode;

 i,y: integer;

begin

 XMLD:=CoDoc.Create ;

 XMLD.async:=false;

 URL:=ComboBox1.Text;

 XMLD.load(URL);

////////////////////////// здесь чтото не так 

while not XMLD.load(URL) do

Application.ProcessMessages;

////////////////////////////

 memo1.Clear;

 listbox1.Clear;

r:=XMLD.documentElement;

FNode:= r.SelectSingleNode('//rss');

 if FNode.attributes.getNamedItem('version').text<>'2.0'

 then

  begin

   Memo1.Lines.Add('error no 2.0');

   Exit;

  end;