Repetir una accion

[[coso]]

Hola,
600 edits es un error grave de diseño. Para lo que tu quieres, puedes hacer algo asi, por ejemplo, en el evento OnCreate

Código Delphi [-]

for i := 0 to Form1.ComponentCount - 1 do
begin
    if Form1.Components[i] is TEdit then
     (Form1.Components[i] as TEdit).OnKeyPress := MiProcedimientoOnKeyPress;
end;

de todas maneras, sigo diciendote que 600 TEdit en un form es un fallo grave que te dara mas problemas que soluciones. Un saludo.