const
    WM_MYSOCKMESS = WM_USER+1;

var
  Form1: TForm1;
    WSADt:TWSADATA;
    ClSocket:TSocket;//Сокет для соединения клиента с сервером
    ClAddr:sockaddr_in;//Структура sockaddr_in, которая содержит днные для соединения с фтп сервером(семейство протоколов, адрес, порт)
    TempSock:TSocket;//Сокет передачи данных

if WSAStartup(MAKEWORD(1,1), WSADt)<>0 then     //инициализируем WinSock
 begin
  ShowMessage('Ошибка иеициализации WinSock'); //Выводим сообщение если неудалось инициализировать WinSock и
  Application.Terminate;		      //Убиваем нашу прогу
 end;

procedure TForm1.SendCommandFtpSrv(s: TSocket; command:string);      // s- сокет для отправки данных, command - команды фтп 
var							     //сервера(о них более подробно вы можете прочитать в описании протокола фтп RFC 959)
 buff: array [0..1024] of Char;
begin
 command:=command+#13#10;       //Добавим к строке FTP команды символы конца строки и перевода каретки
 CopyMemory(@buff, pchar(command), length(command));      //Копируем в buff данные 
 if send(s, buff, length(command),0)=SOCKET_ERROR then   //попытаемся отправить данные
 begin
  Exit;						       //и при неудаче выйдем
 end;
end;

procedure TForm1.ConnectFTP(ftpsrv, port, usern, //ftpsrv - адрес сервера, port -порт,usern- логин,
  userp: string);			      //userps- пароль
begin

  ClSocket:=SOCKET(AF_INET, SOCK_STREAM, IPPROTO_IP); // создаем сокет
 if ClSocket=INVALID_SOCKET then		     //  При возникновении ошибки
 begin
  Exit;						   //   Выйдем из процедуры
 end;
 ClAddr.sin_family:=AF_INET; //Указываем протокол
 ClAddr.sin_addr.S_addr:=inet_addr(pchar(ftpsrv));//Указываем адрес удаленного сервера
 ClAddr.sin_port:=htons(StrToInt(port));//Указываем порт
 WSAAsyncSelect(ClSocket, handle, WM_MYSOCKMESS, FD_READ); // Переводим сокет в асинхронный режим. Устанавливаем наблюдение за прибытием данных(FD_READ)
 Connect(ClSocket, ClAddr, sizeof(ClAddr));     //устанавливаем соединение
 Sleep(100); // установим задержку
 SendCommandFtpSrv(ClSocket, 'USER '+usern);  //Отправим логин
 SendCommandFtpSrv(ClSocket, 'PASS '+userp); //отправим пароль
 SendCommandFtpSrv(ClSocket, 'FEAT');
end;

procedure TForm1.RecvS(sock: TSocket);
var
  bsrv:array[0..5000] of char;// переменные для хранения данных
  strcl:string;		       //-----//-----
begin
 Fillchar(bsrv, sizeof(bsrv), 0);//Очищаем буфер
 if recv(sock, bsrv, sizeof(bsrv), 0)=SOCKET_ERROR then //Делаем попытку получить данные
 begin
  Exit;						         // если попытка неудачна, то выходим из процедуры
 end;
 strcl:=bsrv; 	     //Пришедщие в bsrv скопируем в strcl 
 if pos('221', strcl)>0 then //Проверяем ответы пришедшие с сервера
 begin
   ShutDown(sock, SD_BOTH);  //Сообщим о прекращении соединения
   CloseSocket(sock);       //Закрываем сокет
 end;
{тут мы просто пишем код, который отображает полученные данные в RichEdit :) }
 while pos(#13, strcl)>0 do
 begin
  RichEdit1.Lines.Add(copy(strcl, 1, pos(#13, strcl)));
  Delete(strcl, 1, pos(#13, strcl)+1);
 end;
end;

procedure TForm1.MSGSocket(var Mess: TMessage);
begin
   case Mess.LParam of
    FD_ACCEPT:
    begin
      TempSock:=accept(Mess.WParam, nil, nil); //Для получения данных, мы переводим socket в асинхронный режим и устанавливаем
      WSAAsyncSelect(TempSock, handle, WM_MYSOCKMESS, FD_READ+FD_CLOSE);//наблюдение за событиями  и FD_CLOSE(когда мы отрубаемся от сервака)
    end;
    FD_READ:  RecvS(Mess.WParam); //Данные мы получим с помощью описанной выше процедуры RecvS
    FD_CLOSE: CloseSocket(Mess.WParam); //Закроем сокет при отключении клиента
   end;
end;

ConnectFTP('ххх.ххх.ххх.ххх','21','login','pass');

SendCommandFtpSrv( ClSocket, 'QUIT'); //Эта команда говорит о завершении соединения клиента с сервером

procedure MSGSocket(var Mess: TMessage); message WM_MYSOCKMESS;