Eigenes Ereignis/Event in TForm mit Zugriff auf Steuerelemente des Forms

[Fritzew]

ok, wenn ich das richtig verstehe....
1. Du erzeugst deinen Progressdialog und weist ihm einen Event zu.
2. Du rufst den Dialog "Modal" auf
3. Dein Timer feuert, ruft den Event auf.
4 Der Event ändert die properties
5. Der Event schließt den Dialog?

Ganz ehrlich den Flow verstehe ich nicht.

Delphi-Quellcode:

procedure TfrmMain.Progress(Sender: TObject);
var
  Idx: Integer;
  
begin

  with TfrmProgressDialog(Sender) do
  begin

    Caption := 'bla bla';

    Label1.Caption := 'ldkfdlkfdo';

    ProgressBar1.Min := 0;
    ProgressBar1.Max := 100;
    ProgressBar1.Step := 1; 
 
    for Idx := 1 to 100 do
    begin
      ProgressBar1.StepIt;
      Application.ProcessMessages;
      Sleep(500);
    end; 
    
    Close;

  end; 
end;