Onclick mit weiteren Parametern als nur "Sender:Tobject"

[s14]

Hallo,
ich verwende für die Übergabe von Zeichenfolgen einfach die Eigenschaft "Hint" des TButton.

Code:

  but1.Hint := 'Irgendwas';
  but1.onclick := But1Click;

  procedure TForm1.But1Click(Sender: TObject);
  var
    s : string;
  begin
    s := (Sender as TButton).Hint;
  end