Tedit i OnChange dla 50 innych Tedit'ow- jak??

jak w temacie.... zrobilem tak oto <ort>procedorke </ort>i teraz zastanawiam sie jak ja zmodyfikowac by pasowala do 50 Editow... oto zrodlo:

procedure TForm1.NamePortAChange(Sender: TObject);
var
  S : string;
  Caret : Byte;
begin
  Caret := NamePortA.SelStart;  //jak to zmienic !!!!!
  if Length((Sender as TEdit).Text) > 0 then
  begin
    S := (Sender as TEdit).Text;
    S[1] := UpperCase(S)[1];
    (Sender as TEdit).Text := S;
  end;
  NamePortA.SelStart := Caret   //jak to zmienic !!!!
end;

Jak zmienic te dwie linijki ktore oznaczylem, by pasowala ta procedura do wszystkich TEdit'ow ???

moze jakis uchwyt aktywnego komponentu ??? ale nie za bardzo wiem jak to zmodyfikowac :(
a kopiowac to z 50 albo i wiecej razy.... no mozna i tak ale jak mozna inaczej to byloby troche bardziej ladnie :))

pozdrawiam

Ultimion

Procedure TForm1.NamePortAChange(Sender: TObject);
Var S : string;
    Caret : Byte;
    Edit:TEdit;
Begin
  Edit:=TEdit(Sender);
  Caret := Edit.SelStart;
  if Length(Edit.Text) > 0 then
  begin
    S := Edit.Text;
    S[1] := UpperCase(S)[1];
    Edit.Text := S;
  end;
  Edit.SelStart := Caret;
End;

wielkie dzieki !!! o to chodzilo :)))

pozdrawiam

Ultimion