Lo puse en el evento OnDataChange y hacia lo mismo.
El problema era la extensión de la foto, algunas estaban en mayúsculas y otras en minúsculas.
Solución:
Código Delphi
[-]procedure TModuloDatos.DSAgendaDataChange(Sender: TObject; Field: TField);
var
Extension : string[4];
begin
Extension := ExtractFileExt(ModuloDatos.IBQAgendaFOTO.AsString);
if (LowerCase(Extension) = '.jpg') then
Begin
F_Agenda.ImagenAgenda.Picture.LoadFromFile(ModuloDatos.IBQAgendaFOTO.AsString);
End;
end;
end.
Gracias.