Esto es lo que hago <<onExit>> de uno de los mask.
Código:
procedure Tv_pendientes.mask_desdeExit(Sender: TObject);
var tempDate : tdate;
begin
try
TempDate := StrToDate(mask_desde.Text);
except
on E: EConvertError do
begin
v_error.Show;
v_error.mensaje.caption := ('La fecha ' + mask_desde.Text + ' no es valida');
mask_desde.Text:= '01/01/1900';
end;
end;
Como pregunto si los maskEdit estan vacios?