Ping Gönderme İşlemi

[apachi2006]

uses IdTCPConnection, IdTCPClient;

function CanConnect(const aHost: string; const aPort: Integer): Boolean;
var
 tcp: TIdTCPClient;
begin
 tcp := TIdTCPClient.Create(nil);
 try
   tcp.Host := aHost;
   tcp.Port := aPort;
   tcp.ConnectTimeout := 1750;
   tcp.Connect;
   Result := True;
   tcp.Disconnect;
 except
   on E: Exception do
   begin
     Result := False;
   end;
 end;
end;



procedure Tmain.Timer1Timer(Sender: TObject);
begin
if CanConnect('10.71.0.94', 8443) then
 begin
 TwwPlatformServices.HideWaitDialog;
 end
 else
 TwwPlatformServices.ShowWaitDialog('Bağlantınız Yenileniyor...');
end;

Bu şekilde çözdüm.