Работа с почтой & проверка подключения

[Стелс]

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, IdBaseComponent, IdComponent, IdTCPServer,
  IdCustomHTTPServer, IdHTTPServer, IdTCPConnection, IdTCPClient, IdHTTP,
  IdMessageClient, IdSMTP, IdMessage;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    IdHTTP1: TIdHTTP;
    IdMessage1: TIdMessage;
    IdSMTP: TIdSMTP;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  http:TidHTTP;
  Form1: TForm1;
  cnt:boolean=false;//Поможет при проверке подключения
  IP:string;//Здесь то мы его и будем хранить

implementation

{$R *.dfm}
//Функция выполняет двойную функцию)) определяет подключен ли и IP адресс
function GetIP: string;
begin
 Result:='';
 http:=TidHTTP.Create(nil);
    try
      ip := http.Get('http://ddns.cis.by/nic/');//Адрес сайта для определения внешнего IP
      Result := IP;//Это будет текст письма
      http.Free;
    except
      FreeAndNil(http);//Пригодится
     end;
       END;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 GetIP;
if (http = nil)//Пригодилось )-Если nill  то не подключен
  then
       cnt:=False//Переменная проверки состояния подключения
        else
           cnt:=true;
if (Timer2.Enabled = false )and
                 (cnt=False)
    then
        Timer2.Enabled := True;//то можно и отправить 

      END;

procedure TForm1.Timer2Timer(Sender: TObject);
var
M: TIdMessage;
i_p,subI_p:string;
i:integer;
begin 
if cnt= false then exit//В зависимости от состояния подключения принимаем решение
 else begin
try
//Откуда отправить
 IdSMTP.Port:=25;
 IdSMTP.Host := 'mail.rambler.ru';
 IdSMTP.AuthenticationType:=atlogin;
 IdSMTP.Username:='user@rambler.ru';
 IdSMTP.Password := '*********';
 IdSMTP.Connect(1000);
 i_p:=copy(IP,77,30);     //Режем наш IP до-
 subI_P :='<';
 i:=AnsiPos(subI_p,i_p);
 delete(I_P,i,30);
 i_p := i_p;                  //- получения удобочитаемого вида
 finally
  Timer2.Enabled := False;//На всякий случай чтобы шестеренки таймера не изнашивались :-)
 end;

if IdSMTP.Connected=True
 then
   begin //Куда отправить
   M:=TIdMessage.Create(nil);
   M.Subject:='TEST_SEND';
   M.Body.Add('Body');
   M.Recipients.EMailAddresses:='user@nm.ru';
   M.From.Address:='user@rambler.ru';
   M.Body.Text:=i_p;
   M.Date:=StrToDate(DateTostr(Now));
   IdSMTP.Send(m);
   IdSMTP.Disconnect;
   m.Free;
   Timer2.Enabled := false;//Сделали дело сюда больше не прийдем
  end;
   end;
    END;
END.

При запуске почта приходит, но при переподключении письмо может дойти а может и нет подскажите где я накривокодил ?

[Человек_Борща]

Ну как минимум тут накосячил..

 IdSMTP.Connect(1000);

таймаут 1000 мс. Коннект сокет потерял, 1 сек прошло => соединение закрыто. Все.