Problema con excepciones

[soto]

Esto es lo que hago <<onExit>> de uno de los mask.

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?