Du musst die Edits nicht zur Laufzeit erstellen.
mach folgendes beim Create des Formulars:
Code:
for I := 0 to ComponentCount - 1 do
if Components[I] is TEdit then
TEdit(Components[I]).OnClick := MyMouseClick;
d. h. die Schleife geht alle Komponenten von deinem Formular durch, handelt es sich dann um ein Edit,
dann weist es dem OnClick-Ereignis die Prozedur MyMouseClick zu.