// É necessário estar declarado jpeg, Classes e DB
{ Em versões mais recentes, declare Vcl.Imaging.jpeg,
System.Classes e Data.DB }
 
procedure RefreshImage(Field : TField; Img : TImage);
var
  vJpeg   : TJPEGImage;
  vStream : TMemoryStream;
begin
  { Verifica se o campo esta vázio. }
  if not Field.IsNull then
  begin
 
    { Cria objeto do tipo TJPEG, e objeto do tipo MemoryStream}
    vJpeg   := TJPEGImage.Create;
    vStream := TMemoryStream.Create;
 
    { Trata o campo como do tipo BLOB e salva o seu conteudo na memória. }
    TBlobField(Field).SaveToStream(vStream);
 
    { Ajusta a posicao inicial de leitura da memória }
    vStream.Position := 0;
 
    { Carrega da memoria os dados, para uma estrutura do tipo TJPEG
      (A partir da posicao 0)}
    vJpeg.LoadFromStream(vStream);
 
    { Exibe o jpg no Timage. }
    Img.Picture.Assign(vJpeg);
 
    { Libera a memoria utilizada pelos componentes de conversão }
    vJpeg.Free;
    vStream.Free;
  end;
end;
 
// Exemplo de uso
procedure TForm1.Button1Click(Sender: TObject);
begin
  RefreshImage(DataSet1.FieldByName('LOGOTIPO'), ImgLogotipo);
end;