Fórum Evento Personalizado Global #331345

Olá.
Preciso personalizar um evento de m determinado TMaskEdit, para todos os forms do aplicativo, pensei em algo como segue abaixo, mas consegui.
O código está em uma unit que funciona como biblioteca:

procedure LimpaComponentes(pForm: TForm; pLimpaProcesso: Boolean);
var
iContador: Integer;

begin
for iContador := 0 to pForm.ComponentCount - 1 do
begin
if pLimpaProcesso then
begin
if pForm.Components[iContador] is TMaskEdit then
begin
if (TMaskEdit(pForm.Components[iContador]).EditMask = ´99/A999-9;0;_´) then
begin
TMaskEdit(pForm.Components[iContador]).Hint := ´Click duplo para limpar´;
TMaskEdit(pForm.Components[iContador]).OnDblClick := Custom_ProcessoDblClick;
TMaskEdit(pForm.Components[iContador]).ShowHint := True;
TMaskEdit(pForm.Components[iContador]).Cursor := crHandPoint;
end;
end;
end;
end;
end;