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.