Detectar Excepcion EconvertError

[MasterXP]

Gracias Delfino, perfectamente.
lo hice de la siguiente manera:

Código Delphi [-]
procedure TDataModule1.QueryPagosFechaSetText(Sender: TField;
   const Text: string);
 begin
 Try
 Datamodule1.QueryPagosFecha.Value:=StrToDate(Text);
 Except
 ON E: EconvertError DO 
 end;
 end;

salu2.