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

[TUX_der_Pinguin]

Da rätsle ich die ganze Zeit rum dabei habe ich die Lösung schon da.

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;

Wobei ich mich Frage ob es nicht doch möglich ist einen direkteren Zugriff über einen weiteren Parameter zu bekommen.

Sowas wie ..
procedure TfrmMain.Progress(Sender: TObject; Caption: TCaption; Progress: TProgressBar);