Samme funktion til mange objekter

Hej.

Hvordan er det nu lige, at man skriver sin kode for at den kan gælde til flere objekter.

Fx jeg har nogle editbokse, som jeg vil have tilføjet samme funktion / egenskab. Nemlig at de bliver venstrestillet, når onEnter bliver kaldt og igen højrestillet når onExit bliver kaldt.

Men at skulle skrive

procedure Tform1.edit1(Sender: TObject);
begin
  edit1.bidimode:= bdLeftToRight;
end;

procedure Tform1.edit2(Sender: TObject);
begin
  edit2.bidimode:= bdLeftToRight;
end;

etc for hver "gider" jeg ikke

Kan man ikke skrive noget, så man slipper for at skrive "edit1." for hver?