[X-rem]

http://slil.ru/29563430
Навалял функцию:

Код:

function CheakPort(ip:String; port:Word; timeout:Word; debug:Boolean):Boolean;
var
cc:TIdTCPClient;
// uses IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient;
begin
  Result:=False;
  cc:=TIdTCPClient.Create;
  cc.Port:=port;
  cc.ConnectTimeout:=timeout;
  cc.Host:=ip;
  try
  cc.Connect;
  if cc.Connected then begin
  if debug then ShowMessage('Debug:Connected');
  Result:=True;
  end else if debug then if not cc.Connected then ShowMessage('Debug:Not connected');
  except if debug then ShowMessage('Some Shit Was Happend') end;
  cc.Disconnect;
  cc.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
// если выставить True будут всплывающие сообщения, говорящии подключились или нет
if CheakPort('127.0.0.1',5000,80,False) then begin
  Label1.Caption:='Работаем ^_^';
  // ... рабочий код
  end else Label1.Caption:='Не работаем';
end;

Поидее проще будет)