Iteraccion al validar

[jacanche]

Tambien puedes iterar a través de la lista de componentes de la forma, evaluar si es un TMaskEdit y hacer la validacion; algo como esto:

Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  Index : Integer;

begin
CanClose := True;
    for Index := 0 to Componentcount-1 do
    begin
      if Components[Index] is TMaskEdit then
         begin
         if not Validar(TMaskEdit(Components[Index])) then //Validar es una funcion que devolveria verdadero si se cumple la validacion, falso en caso contrario
            begin
            ShowMessage('Error de Validación');
            CanClose := False;
            break;
            end;
         end;
    end;
end;