TComponent <> TEdit

[Jakunar]

Wunder schoenes Wochenende an Euch alle!

Ich hab folgendes Problem und spontan keine Ahnung wie ich das umschiffe...

Code:

procedure TForm1.MoveChange(Edit: TEdit);
begin
  if not Ord(Edit.Text[Edit.SelStart-1]) in [Ord('0')..Ord('9')] then
    Edit.Undo;
  if Length(Edit.Text) >= 2 then
    SelectNext(ActiveControl as TWinControl, true, true);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  MyEdit: TEdit;
begin
  for i:=0 to Form1.ComponentCount-1 do
    if Form1.Components[i] is TEdit then
      begin
        MyEdit := Form1.Components[i]; //[Error]: Incompatible types: 'TEdit' and 'TComponent'
        MyEdit.OnChange := MoveChange(Form1.Components[i]);
      end;
end;

Hat rgendwer von Euch vielleicht eine??

Gruss
Jakunar