Mensaje personalizado

[sizne]

Hola a todos/as, tengo un percance con un DBEdit, espero puedan ayudarme.
Estoy usando (DELPHI) ADOTable, y que al hacer doble click en la Tabla, y elegir un campo e ir a Properties en la sección EditMask coloqué:

!>LLL\-000;1;_

El cual solo permita ingresar 3 letras separados por un "guion" y seguido 3 números.
Como muestro aqui un Ejemplo, asi me permite ingresar ejecutando:

MAT-100
SIS-100

El problema es si por alguna razón tan solo coloco parte de la sigla:

MAT-
___-100

Al ir a otro campo a ingresar datos, quiero que me aparezca un error personalizado, ya que por ahora me aparece este error:

Invalid input value. Use escape key to abandon changes

Este es mi código

Código Delphi [-]


procedure TFmateria.CodigoMExit(Sender: TObject);
begin
 if length(CodigoM.Text)  = 7 then
  begin
    with Query1 do
      begin//inicio query
        Close;
         //codigo...lo eliminé para que no ocupara espacio
      end;//fin query
  end
 else
     MessageDlg('Ingrese la sigla completa',mtError,[mbOk],0);  
end;

Como es maskEdit(___-___), no hay espacion vacios y siempre será 7 la longitud.

Alguien puede ayudarme?
//Ya no estoy usando EXception, deshabilité (Stop on Delphi Exceptions)

Saludos