Bei onClick sender übergeben

[killerkarl]

Moin,

also ich habe 4 editfelder, auf die ich clicke und dann ändert das jeweils angeklickte seine Farbe.

dazu habe ich eine procedure focus geschrieben
in der übergebe ich das object und dann ändert er die Farbe des Feldes.

Soweit so gut, aber wenn ich diese procedure aufrufe muss ich das bei jedem textfeld machen also ungefähr so:

Delphi-Quellcode:

procedure focus(f:TEdit);   //Das Feld wird eingefärbt.
begin
       z1.color:=clwhite;
       n1.color:=clwhite;
       z2.color:=clwhite;
       n2.color:=clwhite;
       f.Color:=clinfobk;
end;

procedure TForm1.z1Click(Sender: TObject);
var feld:Tedit;
begin
     feld:=z1;     // Der Fokus wird auf das Feld gelegt und farblich markiert
     focus(feld);
end;

Ich wollte wissen, ob ich mir das ganze sparen kann und focus direkt aufrufen kann und wie ich dann denn Sender übergebe.