Uses WinInet;

function TForm1.DLVerz(Server, User, Passwort, LokalVerz, ServerVerz: String): Boolean;
  var
    FindFileData: TWin32FindData;
    hSession, hConnect, hSearch: HINTERNET;

  function DLDateien(LokalPfad, ServerPfad: String): Boolean;
  begin
    result := false;
    if NOT FtpSetCurrentDirectory(hConnect, PChar(ServerPfad)) then Fehler;

    LokalPfad := IncludeTrailingPathDelimiter(LokalPfad);
    if NOT DirectoryExists(LokalPfad) then MkDir(LokalPfad);
    ChDir(LokalPfad);

    hSearch := FtpFindFirstFile(hConnect, nil, FindFileData, 0, 0);
    if (hSearch <> nil) then
    begin
      repeat
        if (FindFileData.dwFileAttributes AND FILE_ATTRIBUTE_DIRECTORY = 0) then
        begin
          // Datei
          if NOT FtpGetFile(hConnect, PChar(FindFileData.cFileName), PChar(LokalPfad+FindFileData.cFileName),
                            false, 64, FTP_TRANSFER_TYPE_UNKNOWN, 0) then Fehler;
        end else
        begin
          // Verzeichnis
          if ((String(FindFileData.cFileName) <> '.') AND (String(FindFileData.cFileName) <> '..')) then
            if NOT DLDateien(PChar(LokalPfad+FindFileData.cFileName),
                             PChar(ServerPfad+FindFileData.cFileName)) then Fehler
        end;
      until NOT (InternetFindNextFile(hSearch, @FindFileData));
      InternetCloseHandle(hSearch);
    end;
  end;

begin // DLVerz
  hSession := InternetOpen('Test', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
  if (hSession <> nil) then
  begin
    hConnect := InternetConnect(hSession, PChar(Server), 21, PChar(User), PChar(Passwort),
                                INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
    if (hConnect <> nil) then
    begin
      Result := DLDateien(LokalVerz, ServerVerz);
      InternetCloseHandle(hConnect);
      InternetCloseHandle(hSession);
    end;
  end;
end;