Переподключение к серверу

[Timon.cheg]

Ребята, простите грешного если задам супер нубский вопрос, но как грамотно организовать проверку на соединение и последующее переподключение к серверу?

Есть таймер на 30 сек , пингую , обновляю на форме пинг:
ping:=IntToStr(IdIcmpClient1.ReplyS tatus.MsRoundTripTime);
помимо этого использую
IdIcmpClient1 для соединения и IdThreadComponent1 для передачи потоков

вот кусок кода таймера, поправьте меня пожалуйста =)

procedure TForm1.Timer7Timer(Sender: TObject);    //автореконнект
var
Srvconn1:boolean;
begin
Srvconn1:=true;
  IdIcmpClient1.Ping();
  ping:=IntToStr(IdIcmpClient1.ReplyStatus.MsRoundTripTime);
  Label1.Caption:='На связи : '+ping+' ms';

  if ping>4500 then
   begin

        Label1.Caption:='Не доступен';
        Memo1.Lines.Add('client: Связь с сервером потеряна ждите восстановление подключения.');   //Выводим сообщение
        form1.Refresh;

         if IdTCPClient1.Connected=true then  begin  IdTCPClient1.Socket.Close; IdTCPClient1.Disconnect;  end;
           try
            IdTCPClient1.Connect;
          except
           Memo1.Lines.Add('client: Не удалось соедениться с сервером.');
          end;
     Srvconn1:=false;
   end;

  if ping<4500 and Srvconn1=false  then
   begin

          Memo1.Lines.Add('Dota2 lobby client: Соединение с сервером восстановлено.');
          IdTCPClient1.Connect;
          Srvconn1:=true;

   end;
end;

[Stilet]

Допустим так:

procedure TForm1.Timer7Timer(Sender: TObject);  
begin
          try
            IdTCPClient1.Connect;
            TTimer(Sender).Enable:=false;
          except
           Memo1.Lines.Add('client: Не удалось соедениться с сервером.');
          end;
end;

Только зачем это нужно?

[Timon.cheg]

Сообщение от Stilet

Допустим так:

procedure TForm1.Timer7Timer(Sender: TObject);  
begin
          try
            IdTCPClient1.Connect;
            TTimer(Sender).Enable:=false;
          except
           Memo1.Lines.Add('client: Не удалось соедениться с сервером.');
          end;
end;

Только зачем это нужно?

Извини , я не правильно сформулировал вопрос видимо...
нужно при нормальном соединении - выводить только пинг , а при разрыве - пытаться восстановить по таймеру, при восстановлении продолжить штатную работу ...

[Stilet]

Тогда не очень понимаю что там поправлять?

[Timon.cheg]

Сообщение от Stilet

Тогда не очень понимаю что там поправлять?

по факту он почему-то начинает думать что надо переподрубиться (и это при нормальном коннекте) , вот и думаю где я накосячил , а еще думал что кто-нибудь умный ткнет в меня ссылкой , где показан подобный метод но проще и грамотней )

[Stilet]

Мне кажется тебе нужно в корне менять стратегию.
Создай TThread, в которую пропиши подключение типа:

begin
while true 
          try
            IdTCPClient1.Connect;
            break;
            sleep(100);
          except
           Memo1.Lines.Add('client: Не удалось соедениться с сервером.');
          end;
end;

И запускай ее в IdTCPClient1.OnDisconnect;
Мол - переподключайся до востребования если отключился.
По-моему так проще.