Вывод изображения из таблицы в TImage

[Ogo_kakoi_paren]

Доброго времени суток! Подскажите пожалуйста, как можно вывести изображение (jpeg) из ячейки таблицы (access) в TImage? В прошлом году как-то делал, код из прошлого проекта взял. Но что-то не отображается картинка, хотя файл в базу загружается. Код прилагаю)

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, DBCtrls, ExtCtrls, jpeg;

type
  TForm3 = class(TForm)
    ds1: TDataSource;
    tbl1: TADOTable;
    lbl1: TLabel;
    dbtxt1: TDBText;
    dbtxt2: TDBText;
    lbl2: TLabel;
    grp1: TGroupBox;
    dbgrd1: TDBGrid;
    dbnvgr1: TDBNavigator;
    img1: TImage;
    dlgOpen1: TOpenDialog;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
    procedure tbl1AfterScroll(DataSet: TDataSet);
    procedure img1Click (Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses
  Unit1, Unit2;

{$R *.dfm}

procedure TForm3.btn1Click(Sender: TObject);
var
  jpg: TJPEGImage;
begin
  if dlgOpen1.Execute then
  begin
    jpg := TJPEGImage.Create;
    try
      jpg.LoadFromFile(dlgOpen1.FileName);
      tbl1.Edit;
      tbl1.FieldByName('Photo').Assign(jpg);
      tbl1.Post;
    finally
      jpg.Free
  end;
end;
end;

procedure TForm3.tbl1AfterScroll(DataSet: TDataSet);
var
  jpg: TJPEGImage;
begin
   if not tbl1.FieldByName('photo').IsNull then
   begin
     jpg := TJPEGImage.Create;
     try
       jpg.Assign(tbl1.FieldByName('photo'));
       img1.Picture.Assign(jpg);
       finally
         jpg.Free;
   end;
end
else
img1.Picture := nil;

end;