[NumLock]

Код:

var
  ClientSocket1: TClientSocket;
begin
  ClientSocket1:=TClientSocket.Create(Self);
  ClientSocket1.ClientType:=ctBlocking;
  ClientSocket1.Port:=21;
  ClientSocket1.Host:='ftp.narod.ru';
  ClientSocket1.Open;
//  ClientSocket1.Socket.SendText('HELO');
end;