Загрузка файлов в поле Image

procedure TForm3.SpeedButton1Click(Sender: TObject); //загрузка изображения
var
  rjpeg: TPicture;
  bit: TBitmap;
begin
  if OpenPictureDialog1.Execute then //открываем диалоговое окно открытия изобоажений
  begin
    //создаем классы для рисунков
    rjpeg := TPicture.Create;
    bit := TBitmap.Create;
    try
      rjpeg.LoadFromFile(OpenPictureDialog1.FileName); //загружаем рисунок в переменную
      bit.Assign(rjpeg.Graphic); //переводим рисунок в битовую матрицу
      Datamodule2.ADOTableVopros.Edit; //редактироваение записи
      Datamodule2.ADOTableVopros.FieldByName('Фото').Assign(bit); //добавление рисунка в запись
    finally
      //уничтожаем классы рисунков
      rjpeg.Free;
      bit.Free;
    end;
  end;
end;