Ошибка: bitmap is not valid

procedure TForm1.ADOQuery1AfterScroll(DataSet: TDataSet);
var
  jpg: TJPEGImage;
begin
  if not ADOQuery1.FieldByName('Picture').IsNull then
  try
    Image1.Picture.Assign(ADOQuery1.FieldByName('Picture'));
  except
    jpg := TJPEGImage.Create;
    try
      jpg.Assign(ADOQuery1.FieldByName('Picture'));
      Image1.Picture.Assign(jpg);
    finally
      jpg.Free;
    end;
  end else
    Image1.Picture := nil;
end;

procedure TForm1.Button1Click(Sender: TObject); //Добавлении в БД так же можно использовать Query
begin
  ADOTable1.insert;
  TBlobField(ADOTable1.FieldByName('Photo')).LoadFromFile('C:\Картинки\images21.jpg');
  ADOTable1.Post;
end;
 
//Этот код ранее тебе писали я его повторил только поместил я его в в другой обработчик событий
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
  jpg: TJPEGImage;
begin
  if not ADOTable1.FieldByName('Photo').IsNull then
  try
    Image1.Picture.Assign(ADOTable1.FieldByName('Photo'));
  except
    jpg := TJPEGImage.Create;
    try
      jpg.Assign(ADOTable1.FieldByName('Photo'));
      Image1.Picture.Assign(jpg);
    finally
      jpg.Free;
    end;
  end else
    Image1.Picture := nil;
end;