Pergunta: Para que Serve ?
Resposta: Para verificar se um servidor de jogo ou um website está online ou offline.

------------------


Primeiro adicione 2 Edit's ( palheta Standard ) , 1 Button ( palheta Standard ), 1 Label ( palheta Standard ) e 1 TcpClient ( Palheta Internet ).

No evento OnConnect do Tcpclient adicione:

Código:
Label1.Caption := 'Online';
Label1.Font.Color := clgreen;

No evento OnError do TcpClient adicione:

Código:
Label1.Caption := 'Offline';
Label1.Font.Color := clred;
No evento OnDisconnect do TcpClient adicione:

Código:
Label1.Caption := 'Offline';
Label1.Font.Color := clred;
No Evento OnClick do Button adicione:

Código:
TcpClient1.RemoteHost := Edit1.Text;
TcpClient1.RemotePort := Edit2.Text;
TcpClient1.Connect;

No Evento OnKeyPress do Edit2 adicione:

Código:
if Not (key in ['0'..'9',#8]) then
key := #0;
end;
Pronto, agora é so rodar e compilar a sua aplicação !
É simples, digite o ip do servidor ou site no Edit1 e a porta no Edit2.


Créditos: bl00dshooter
Fonte: Pro Code