chat + program

Hejsa..

Jeg har lavet en chat (PHP), nu vil jeg gerne lave et program i delphi, hvor man kan logge på chatten med den, sådan hvis rummet var fyldt så vil programmet blive ved med at prøve at logge på hver 3-4 sek automatisk, indtil man logger på.

jeg fik lavet den her, men tingene kører for hurtigt at programmet går i stå eller giver mig fejl (adgang nægtet eller sådan noget/CPU fejl)

procedure TForm2.WebBrowser1OnDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
  var DOM: variant;
begin
  DOM := WebBrowser1.Document;
  Memo1.Text := DOM.Body.OuterHTML;
  if pos('Rummet er fyldt', Memo1.Text)>0 then
    WebBrowser1.Navigate('http://127.0.0.1/'&name=' + unit1.Form1.username.Text)
end;

Hvordan kan jeg gøre programmet stabil, eller har i nogen ide´r hvordan jeg ku lave sådan et program på en bedre måde osv. eller bare fortælle mig hvad jeg skal gøre så programmet ikke går i stå, eller går ned..

og mange tak for hjælpen !