Parameterübergabe Sender: TObject wie?

[madina]

Hallo,

leider kein Erfolg mit folgenden Vorschläge V1:

Delphi-Quellcode:

Procedure TfrmMain.Zeige(Sender: TObject);
begin
 if (Sender is TForm) then
   (Sender as TForm).Canvas.TextOut(X, Y, 'Hallo');
end

oder

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