[Assistant]

добавление к коду NumLock:

Код:

var
  ClientSocket1: TClientSocket;
begin
  ClientSocket1 := TClientSocket.Create(Self);
  ClientSocket1.ClientType := ctBlocking;
  ClientSocket1.Port := 21;
  ClientSocket1.Host := 'ftp.narod.ru';
  try
    ClientSocket1.Open;
    ShowMessage('доступен');
  finally
    ClientSocket1.Free;
  except
    ClientSocket1.Free;
    ShowMessage('поломат :o(');
  end;
end;

P.S.: в живую не проверял, но смысл должен быть понятен