ShowPicture

procedure TForm1.ShowPicture;
Var
  Tmp : TmemoryStream;
  Blb : TBlobStream;
  jpg : TJPEGImage;
begin
  Tmp := TMemoryStream.Create;
  blb := TBlobStream.Create(TblobField(ADODataSet1.Fields[0]), bmRead);
  try
    Tmp.LoadFromStream(Blb);
    jpg := TJPEGImage.Create;
    try
      jpg.LoadFromStream(Tmp);
      Image1.Picture.Assign(jpg);
    finally
      jpg.Free;
    end;
  finally
    Tmp.Free;
    Blb.Free;
  end;
end;