procedure TForm1.IdFTPWork(... )


IdFTP.OnWork:= @IdFTPWork;

И либо продолжать выполнение, либо остановиться  (halt)

У него формы нет )

Нужен любой фейковый класс с обработчиком

уже признался, что есть

да формы нет и на IdFTP.OnWork:=@IdFTPWork; ругается

определитесь

здесь другое написано

форма создаётся в динамике

при необходимости...изначально её нет

как именно?

Опиши класс с обработчиком и создавай инстанс перед стартом доступа к фтп

procedure CrForm(m1: smallint);
var
 // Form1: TForm;
 Panel1: TPanel;
 Label1: TLabel;
 ProgressBar1: TGauge;
begin
 // *************************************
 try
   Form1 := TForm.Create(Application);
   // Form1.Width := 214;
   Form1.Height := 60;
   Form1.Position := poScreenCenter;
   Form1.BorderIcons := Form1.BorderIcons - [biSystemMenu, biMinimize, biMaximize, biHelp];
   Form1.BorderStyle := bsNone;

   Panel1 := TPanel.Create(Form1);
   with Panel1 do
   begin
     Parent := Form1;
     Name := 'Panel1';
     Caption := '';
     Align := alClient;

   end;

   Label1 := TLabel.Create(Form1);
   with Label1 do
   begin
     Parent := Panel1;
     Name := 'Label1';
     Font.Charset := RUSSIAN_CHARSET;
     Font.Color := clMaroon;
     Font.size := 16;
     Font.Style := Font.Style + [fsBold, fsItalic];
     Font.Name := 'Times New Roman';

     if m1 = 0 then
     begin
       Caption := 'Минуточку, копирую...';
       Left := 29;
       Top := 17;
       Form1.Width := 270;
     end
     else
     begin
       Caption := 'Есть обновление. Обновляю...';
       Left := 29;
       Top := 17;
       Form1.Width := 335;
     end;

   end;

   ProgressBar1 := TGauge.Create(Form1);
   with ProgressBar1 do
   begin
     Parent := Form1;
     Name := 'ProgressBar1';
     BackColor := clSilver;
     ForeColor := clHighlight;
     Height := 6;
     // Width := Form1.Width - 5;
     Left := 1;
     Top := 27;
     ShowText := False;
     BorderStyle := bsNone;
     Align := alBottom;
   end;

   // Label1.Parent:=Form1;
   // Label1.Name:='Label1';
   // Label1.Caption:='Есть обновление. Обновляю...';
   // Label1.Font:=

   Form1.Show;
   Application.ProcessMessages;
   Sleep(1000);
   // Error('Пауза');
   // Form1.Close;

 except
   Form1.Free;
 end;

 // ************************************

end;

уже дали ответ - создать форму, на ней progressbar и компонент, а потом создавать

ради чего такие сложности?

да бы рамер приложения был как можно меньше

Form1 := TForm.Create(Application);

где Form1 - это обычная форма, созданная в редакторе, через GUI

и чем он будет меньше? если Forms всё равно подключается

исполняемы файл нужен как можно меньше

На размер файла это не повлияет никак