Upload Directory to FTP-Server

uses IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP

//

procedure UploadPerFTP;
  procedure GetDir(dir: string);
  var
    SearchRec: TSearchRec;
    details, nodetails: TStringList;
    k: Integer;
  begin
    //iterate through directory given
    if FindFirst(dir + '*.*', faAnyFile, SearchRec) = 0 then
    begin
      repeat

        //get rid of the both "dummy-directories" '.' and '..'
        if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
        begin
          //if we found a folder
          //falls wir einen ordner haben
          if (SearchRec.Attr and faDirectory) = faDirectory then
          begin
            //get folder contents from ftp. one with details, one without
            details   := TStringList.Create;
            nodetails := TStringList.Create;
            Form1.IdFTP1.List(details, '', True);
            Form1.IdFTP1.List(nodetails, '', False);

            //we only want to have directories in the list (without '.' and '..')
            for k := details.Count - 1 downto 0 do
            begin
              if details.Strings[k] <> '' then
              begin
                if (details.Strings[k][1] <> 'd') or
                  (nodetails.Strings[k] = '.') or
                  (nodetails.Strings[k] = '..') then
                begin
                  details.Delete(k);
                  nodetails.Delete(k);
                end;
              end;
            end;

            //if our directory does not exists on the server, create it
            if nodetails.IndexOf(SearchRec.Name) = -1 then
            begin
              Form1.IdFTP1.MakeDir(SearchRec.Name);
            end;

            //change into next directory on server
            Form1.IdFTP1.ChangeDir(SearchRec.Name);
            details.Free;
            nodetails.Free;

            //and also locally go into the next subfolder
            GetDir(dir + SearchRec.Name + '/');

            //we have to go one directory up after leaving the recursion
            Form1.IdFTP1.ChangeDirUp;
          end
          else
          begin
            //if it's only a file, upload it to the current directory
            Form1.IdFTP1.Put(dir + SearchRec.Name, SearchRec.Name);
          end;
        end;
      until FindNext(SearchRec) <> 0;
      FindClose(SearchRec);
    end;
  end;
var
  dir: string;
  details, nodetails: TStringList;
  k: Integer;
begin
  //set some basic settings on your ftp client (TIdFTPClient)
  with Form1.IdFTP1 do
  begin
    Host     := 'your_server.com';
    // Adjust your data here
    Username := 'your_username';
    // Adjust your data here
    Password := 'your_password';
    // Adjust your data here
    Passive := True;
    // Adjust your data here
  end;
  Form1.IdFTP1.Connect;

  //if you want to upload you data to an remote-directory, enter it below (does not matter if 'dir\dir' or 'dir/dir')
  dir := StringReplace('your/remote_directory', '/', '/', [rfReplaceAll]);
  // Adjust your data here

  //remove first '/' if there's one
  if dir <> '' then
  begin
    if dir[1] = '/' then Delete(dir, 1, 1);

    //but add a '/' at the end
    if dir[Length(dir)] <> '/' then dir := dir + '/';

    //loop through our remote-directories
    while Pos('/', dir) > 0 do
    begin
      //get folder contents from ftp. one with details, one without
      details   := TStringList.Create;
      nodetails := TStringList.Create;
      Form1.IdFTP1.List(details, '', True);
      Form1.IdFTP1.List(nodetails, '', False);

      //we only want to have directories in the list (without '.' and '..')
      for k := details.Count - 1 downto 0 do
      begin
        if details.Strings[k] <> '' then
        begin
          if (details.Strings[k][1] <> 'd') or
            (nodetails.Strings[k] = '.') or
            (nodetails.Strings[k] = '..') then
          begin
            details.Delete(k);
            nodetails.Delete(k);
          end;
        end;
      end;

      //if our directory does not exists on the server, create it
      if nodetails.IndexOf(Copy(dir, 1, Pos('/', dir) - 1)) = -1 then
      begin
        Form1.IdFTP1.MakeDir(Copy(dir, 1, Pos('/', dir) - 1));
      end;

      //change to our directory on server
      Form1.IdFTP1.ChangeDir(Copy(dir, 1, Pos('/', dir) - 1));

      //remove first directory from path ('your/directory/subdir/' --> 'directory/subdir/')
      Delete(dir, 1, Pos('/', dir));
      details.Free;
      nodetails.Free;
    end;
  end;
  //ftp client is ready in your remote-directory
  //begin to upload our local directory
  dir := 'C:/directory/';
  // Adjust your data here
  if dir[Length(dir)] <> '/' then begin
  dir := dir + '/';
  GetDir(dir);
  Form1.IdFTP1.Disconnect;
  end;
end;