unit FTP_Class;

interface

uses Classes, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdFTP, SysUtils;

type MyFTPThread = Class(TThread)
  private
    FTP: TIdFTP;
    res: TStringList;
    Description, action: string;
    state: boolean;
    
    procedure updateVLC();

  protected
    procedure Execute; override;

  public
    upload, download, clear: boolean;
     server, user, password: string;
      uploadname, downloadname: string;

    procedure initialize;

end;

implementation

uses OC_F1;

procedure MyFTPThread.Execute;
begin
  res := TStringList.Create;
  initialize;
end;

procedure MyFTPThread.initialize;
begin
  FTP := TIdFTP.Create();
  FTP.Host := server;
  FTP.Username := user;
  FTP.Password := password;
  FTP.Connect;

  if FTP.Connected then
    begin
      if download then
        begin
          ...
        end;

      if upload then
        begin
          ...
        end;
    end;
  FTP.Free;
end;


procedure MyFTPThread.updateVLC();
begin
  Form1.updateVLC(res, Description, state, action);
end;

end.