Button Cation abfragen

[SirThornberry]

Zitat von Spider:

Delphi-Quellcode:

procedure WriteLabel(Sender: TObject);
begin
  Label1.Caption := (Sender as TButton).Caption;
end;

// Aufruf:
procedure TForm1.Button1Click(Sender: TObject); // kommt ja von Delphi her
begin
  WriteLabel(Self);
end;

Sollte das nicht "WriteLabel(Sender)" heißen?