Visualizar Foto al navegar por un DBGrid

[RoyTan]

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.