[rgstuamigo]

Viendo otro hilo , encontre este codigo, pero lo adapte a mis necesidades utilizando Telnet:

Código Delphi [-]
uses IdTelnet...
.
.
.
.
procedure TForm1.Button6Click(Sender: TObject);
var t:TIdTelnet;
begin
  t:=TIdTelnet.Create(self);
    try
     t.Host:='Server';//Podria ser tambien la ip del Server
     t.Port:=3306;
     t.Connect();
     ShowMessage('true');//Servidor corriendo
    except
     ShowMessage('falso');//Servidor no corriendo
    end;
   t.Disconnect;
 t.Free;
end;