[NumLock]

Код:

1 2 3 4 5 6 7 8 9

uses UnitCheckServer;   procedure TForm1.Button100500Click(Sender: TObject); begin   if CheckServer('10.4.84.102', 27015) then     ShowMessage('ok')   else     ShowMessage('err'); end;