Onclick mit weiteren Parametern als nur "Sender:Tobject"

[Dt2158]

Hallo,

ich habe folgendes Problem:
Ein zur laufzeit erzeugter button "but1"

Delphi-Quellcode:

type
...
procedure But1Click(Sender: TObject);
 private
...
...
...
...

but1.onclick := But1Click;

..
..

procedure TForm1.But1Click(Sender: TObject);
begin
...
end

Geht einwandfrei, klar!
aber ich möchte gerne die Parameterliste erweitern

etwa so:

Delphi-Quellcode:

type
...
procedure But1Click(Sender: TObject; x:string);
 private
...
...
...
...

but1.onclick := But1Click('irgendein string');

..
..

procedure TForm1.But1Click(Sender: TObject; x:string);
begin
...
end

Da kommt die meldung:

Code:

[Fehler] main.pas(289): Inkompatible Typen: 'TObject' und 'String'

gut sender:Tobject !!
was kann ich tun ??
aus dem
but1.onclick := But1Click('irgendein string'); ein but1.onclick := But1Click(but1,'irgendein string'); zu machen, resultiert in diesem fehler

Code:

[Fehler] main.pas(289): Inkompatible Typen: 'TNotifyEvent' und 'procedure, untyped pointer or untyped parameter'

Dt2158