[Alegun]

А присвоение одного обработчика AllEditsKeyPress всем Edit на форме совсем просто, главное чтоб их имена шли по-порядку

Код:

uses 
Unit5;

procedure TForm1.FormShow{Create}(Sender: TObject);
var
 i: integer;
begin
 for i: = 1 to ComponentCount - 1 do
  (FindComponent('Edit' + IntToStr(i)) as TEdit).OnKeyPress:= Form5.AllEditsKeyPress;
end;

и так у всех форм.