Frage: Prozedur auf aktuelles Editfeld zugreifen lassen.

[Sudrow]

Hallo Leute,

Ich hab eine Frage zu Delphi.
Ich habe an die 40 Editfelder, nun wollte ich um nicht bei jedem Editfeld den selben Quelltext zu machen, eine
Prozedur erstellen, welche auf das Aktuelle Editfeld zugreift (Bei OnChange) und dann eben den Befehl ausführt.

Also anstatt

if ELK1.Text = 0 Then... sondern

if {aktuelles Editfeld}.Text = 0 Then... Also ist meine Frage nun wie ich es schreiben muss das er wenn er die Prozedur für ien Editfeld ausführt das aktuelle erkennt.

mfg Sudrow

Mein aktueller Quelltext für 1 Editfeld sieht so aus:

Delphi-Quellcode:

procedure THaupt.ELK1Change(Sender: TObject);
begin
  try
    if ELK1.Text = ''
      then
        Begin
          Km0 := Km0 - 1;
          E0K.Text := inttostr(Km0);
        End
      else
        try
          If (strtoint(ELK1.Text) >= 0) and (strtoint(ELK1.Text) <= 15)
            then
              Begin
                If strtoint(ELK1.Text) < 5
                then
                  Begin
                  ELK1.Font.Color := clred;
                  End
                else
                  ELK1.Font.Color := clblack;

                  if (strtoint(ELK1.Text) = 0) or (ELK1.Text = '')
                    then 
                      Begin
                      ELK1.MaxLength := 1;
                      Km0 := Km0 + 1;
                      E0K.Text := inttostr(Km0);
                      End
                    else
                    Begin
          Km0 := Km0 - 1;
          E0K.Text := inttostr(Km0);
          ELK1.MaxLength := 2;
        End;

              End

            Else
              Begin
                MessageDlg('Der Wert muss zwischen 0 und 15 Punkten liegen.', mtError, [mbOK], 0);
                ELK1.Clear;
              End;
        except
          MessageDlg('Bitte einen gültigen Wert eingeben.', mtError, [mbOK], 0);
          ELK1.Clear;
        end;
  except
  end;
end;