[Sheitan48]

Есть несколько форм(скрин формы во вложении). на каждой из них кучка Edit'ов, каждый в отдельном GroupBox'e.
1) OnChange Edit'a меняется цвет GroupBox'a в котором Edit находится
2) OnExit проверка на наличие в Edit'e текста, в случае его отсутствия - опять смена цвета GroupBox'a.

Можно ли каким либо образом прописать по одному разу эти обработчики событий и для всех остальных подобных операций делать какую-нибудь ссылку на эти обработчики? т.е. чтобы не писать эти обработчики по 30 раз для каждого из едитов...

Для OnKeyPress'a работает такая конструкция:
Объявление в Type

Код:

procedure AllEditsKeyPress(Sender: TObject; var Key: Char);

Собственно код общего для всех едитов обработчика

Код:

procedure TForm5.AllEditsKeyPress(Sender: TObject; var Key: Char);
begin 
if (((key >= #192) and (key <= #255)) then   begin   end
   else key:=#0;
end;

Присвоение обработчика конкретному едиту

Код:

Edit1.OnKeyPress:=AllEditsKeyPress;

Но в данном случае мне нужно как параметр передавать GroupBox ...