В private пишешь:
Код:
Procedure MyEditKeyPress(Sender: TObject; var Key: Char);
При созданнии Edit 'ов:
Код:
Edit[i].OnKeyPress:=form1.MyEditKeyPress;
Затем в Implementation ' е :
Код:
Procedure Tform1.MyEditKeyPress(Sender: TObject; var Key: Char);
Begin
//Здесь пишешь свой код, обращаясь к Edit ' ам как (Sender as Tedit)
end;