ADO+Access картинки и загрузка по пути к файлу

imgpath:=ExtractFilePath(Application.ExeName)+'\img\'+ DBGrid1.DataSource.DataSet.FieldByName('ID').AsString+'.jpg';
Image1.Picture.LoadFromFile(imgpath);

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
with DBGrid1 do
begin
if (CheckBox1.Checked) then
begin
  DataModule1.ADOQuery1.Active:=false;
  DataModule1.ADOQuery1.Close;
  DataModule1.ADOQuery1.SQL.Clear;
  DataModule1.ADOQuery1.SQL.Add('select * from book where opisanie is null');
  DataModule1.ADOQuery1.Open;
  DataModule1.ADOQuery1.Active:=true;
end
else
begin
  DataModule1.ADOQuery1.Active:=false;
  DataModule1.ADOquery1.Close;
  DataModule1.ADOQuery1.SQL.Clear;
  DataModule1.ADOQuery1.SQL.Add('select * from book');
  DataModule1.ADOQuery1.Open;
  DataModule1.ADOQuery1.Active:=true;
end;
end;
end;

DataModule1.ADOQuery1.Open;

DataModule1.ADOQuery1.Active:=true;

DataModule1.ADOQuery1.Active:=false;
  DataModule1.ADOQuery1.Close;

begin
if (CheckBox1.Checked) then
  begin
    DataModule1.ADOQuery1.SQL.Text := 'select * from book where opisanie is null';
    DataModule1.ADOQuery1.Open;
  end
    else
  begin
    DataModule1.ADOQuery1.SQL.Text := 'select * from book';
    DataModule1.ADOQuery1.Open;
  end;
end;