[[poliburro]]

Yo lo hago de la siguiente manera, espero te sirva

Código Delphi [-]
Var
   LmsImagen: TADOBlobStream;
Begin

If Not LdmDAtos.AdsDatos.Fields[26].IsNull Then
   Begin
       LmsImagen := TADOBlobStream.Create(TBlobField(AdsDatos.Fields[26]),bmRead);
                  LmsImagen.SaveToFile(ExtractFilePath(Application.ExeName) + 'foto.jpg');
                  ImgFoto.Bitmap.LoadFromFile(ExtractFilePath(Application.ExeName) + 'foto.JPG')
End
Else
ImgFoto.Bitmap.LoadFromFile('sinfoto.JPG');
End;