in der Laufzeit erstellte Komponenten und ihre Funktionen

[BAMatze]

Erstmal recht herzlichen Danke an alle die mir geholfen haben.

Hab aber noch eine weitere Frage. Ich habe die Timer-Funktion an eine Funktion der TForm angebunden, möchte dieser aber weitere Variablen übergeben. Mein Problem ist eigentlich die Angabe des richtigen Sender (TObject) dieser Funktion.

Hier meine derzeitigen Versuche:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  Controll := TTimer.Create(self);
  Controll.Interval := 25;
  Controll.OnTimer := self.Kontrolle(Sender,Key);
  if key in [#48..#57,#44] then
    begin
      sBuffer := sBuffer + key;
    end;
end;

Wie man sieht, soll die Taste zusätzlich mitgegeben werden. Für Sender in der Funktionszuweisung Controll.OnTimer := self.Kontrolle(Sender,Key); hab ich ich schon Nil und '' angegeben aber bekomme dann immer Fehlermeldungen. Welche Angabe kann ich dort machen, damit dies nicht mehr geschieht.