Parameterübergabe Sender: TObject wie?

[sx2008]

Da der Parameter Sender, der ja vom Typ TObject ist, kein Property Canvas besitzt,
schaut der Compiler im lokalen Kontext ob ein Bezeichner namens "Canvas" existiert.
Und in der Tat gibt es einen Canvas aber eben in der Klasse TfrmMain (geerbt von TForm).
Um das zu erreichen was du möchtest müsstest du schon schreiben:

Delphi-Quellcode:

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

Das With-Statement darf nur mit grosser Versicht eingesetzt werden, weil wie du gerade gesehen hast, etwas anderes passieren kann, als der Programmierer ursprünglich beabsichtigt hat.
Sicher wäre z.B. folgende Variante:

Delphi-Quellcode:

Procedure TfrmMain.Zeige(Sender: TObject);
var
  c : TCanvas;
begin
  f := (Sender as TForm).Canvas;
  c.TextOut(X, Y, 'Hallo');
end;

Wenn man jetzt etwas weiterdenkt, dann könnte man auch gleich den Canvas übergeben:

Delphi-Quellcode:

Procedure TfrmMain.Zeige(ACanvas: TTCanvas);
begin
  ACanvas.TextOut(X, Y, 'Hallo');
end;

Die Frage wäre auch noch woher kommt X und Y?