Problema con un MaskEdit

[pkbza]

He tratado interceptar el error con esto...

procedure TForm1.MaskEdit1Exit(Sender: TObject);
var cadena:string[11];
begin
try
cadena:=MaskEdit1.Text;
except
showmessage('ingrese todos los valores a la casilla');
end;
end;
Pero no funciona