Parameterübergabe Sender: TObject wie?

[madina]

Hallo,

weitere Versuche wie folgt ohne Ergebnis dh keine 'Hallo' Ausgabe in Sender.Canvas V2:

1.

Delphi-Quellcode:

Procedure TfrmMain.Zeige(Sender: TForm);
begin
  with Sender as TForm do
    begin
      Canvas.TextOut(X, Y, 'Hallo');
    end
end;

2. Aufruf: frmMain.Zeige(form1);