глюк с message box

[WOWka777]

Всем привет! пытаюсь написать клиент mail agent, возникла такая проблемма: если в процедуре MConnect убрать мессежд бокс(пометил стрелкой), не срабатывает событие MailClientHello(оно отвечает за авторизацию).пробывал поставить туда sleep, не помогло. подскажите почему так?

 procedure TForm1.MConnect(mail,password:string);
    var
     i: Integer;
     MrimS: string;
  begin
       mailclient.Mail:=mail;
       mailclient.PassWord:=password;
       TCPClient1.Active:=True;
     if TCPClient1.Connected then
             MrimS:=TCPClient1.Receiveln(#$A);
             TCPClient1.Disconnect;
      if MrimS <> '' then
           for i:=1 to Length(MrimS) do
               if MrimS[i] = ':' then
                   begin
                       MailClient.Host:=Copy(MrimS, 0, i-1);
                       MailClient.Port:=StrToInt(Copy(MrimS, i+1, Length(MrimS)-i));
                        break;
                    end;

    while not mailclient.Connected do
        begin
                  Application.ProcessMessages();
                  MailClient.RequestHost;
                  MailClient.Connect;
            if mailclient.Connected then
                   begin
                    Application.ProcessMessages();
                    MessageBox(0,'Ok','ок',MB_OK); <---!!
          end;
  mailclient.Disconnect;
    end;
end;
procedure TForm1.MailClientConnect(Sender: TObject);
begin
MailClient.Hello;
end;
procedure TForm1.MailClientHello(Sender: TObject);
begin
 MailClient.Authorize;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Mconnect('логин','пароль');
end;

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