Project Project1.exe raised exception class EIdSocketError with message 'Socket Error # 10060 Connection time out.'

begin
   //podanie parametrów do message...
   IdMessage1.From.Address:= '[email protected]';
   IdMessage1.Recipients.EMailAddresses:= '[email protected]';
   IdMessage1.From.name:= 'od Franka';
   IdMessage1.Subject:= 'Temat';
   IdMessage1.Body.Append('to jest tekst maila');
   IdSMTP1.Host := 'poczta.o2.pl';

   IdSMTP1.Username:= '[email protected]';
     IdSMTP1.Password:=  '123abc';
   IdSMTP1.AuthenticationType:= atLogin; 
   REPEAT
     Inc(x);
     Try
       label1.Caption:= 'łączenie...'; 
       Application.ProcessMessages;
       IdSMTP1.Connect;
       label1.Caption:= 'wysyłanie...'; 
       IdSMTP1.Send(IdMessage1);
       label1.Caption:= 'mail został wysłany';
       Status:= True;
     except
       Status:= False;
       label1.Caption:= 'Błąd !'; //tylko dla podglądu
       if IdSMTP1.Connected then IdSMTP1.Disconnect;
     end;
   UNTIL (Status = True) or (x = 3);
   if IdSMTP1.Connected then IdSMTP1.Disconnect;
 End;
 End;

I o co tu chodz ??? czemu mi sie nie laczy z poczta.o2.pl ??