"Не удается вставить пустую строку. Необходим хотя бы один столбец значений" при вставке строки в грид

DataModule5.qry1.Insert;
DataModule5.qry3.Insert;

procedure TForm2.btn2Click(Sender: TObject);
begin
DataModule5.qry1.Append;
DataModule5.qry3.Last;
DataModule5.qry3.Append;
DataModule5.qry3.Close;
DataModule5.qry3.Parameters[0].Value:=DataModule5.qry1.FieldByName('Kod').Value;
DataModule5.qry3.Open;
if Form6.showmodal=mrOk then
begin
DataModule5.qry1.Post;
DataModule5.qry3.Post;
end
else
begin
DataModule5.qry1.Cancel;
DataModule5.qry3.Cancel;
end;
end;

DataModule5.qry3.Last;
DataModule5.qry3.Append;
DataModule5.qry3.Close;

procedure TForm2.btn2Click(Sender: TObject);
begin
DataModule5.qry1.Append;
DataModule5.qry3.Append;
if Form6.showmodal=mrOk then
begin
DataModule5.qry1.Post;
DataModule5.qry3.Post;
end
else
begin
DataModule5.qry1.Cancel;
DataModule5.qry3.Cancel;
end;
end;

procedure TForm2.btn2Click(Sender: TObject);
begin
DataModule5.qry1.Append;
if Form6.showmodal=mrOk then
DataModule5.qry1.Post;
else
DataModule5.qry1.Cancel;
end;

unit Unit6;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtDlgs, jpeg, DBCtrls, Mask, ExtCtrls;
type
  TForm6 = class(TForm)
    btn1: TBitBtn;
    btn2: TBitBtn;
    dlgOpenPic1: TOpenPictureDialog;
    dbedt2: TDBEdit;
    dbcbb1: TDBComboBox;
    dbedt3: TDBEdit;
    dbedt4: TDBEdit;
    dbedt5: TDBEdit;
    img1: TImage;
    dbmmo1: TDBMemo;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form6: TForm6;
implementation
uses Unit5;
{$R *.dfm}
 
procedure TForm6.btn1Click(Sender: TObject);
var
 jpeg:TJPEGImage;
   bmp:TBitmap;
begin
   if dlgOpenPic1.Execute then
  begin
  jpeg := TJPEGImage.Create;
    bmp := TBitmap.Create;
    try
      jpeg.LoadFromFile(dlgOpenPic1.FileName);
      bmp.Assign(jpeg);
      DataModule5.qry1.Edit;
      DataModule5.qry1.FieldByName('Èçîáðàæåíèå').Assign(bmp);
      DataModule5.qry1.Post;
    finally
      jpeg.Free;
      bmp.Free;
    end;
    end;
    end;
 
procedure TForm6.btn2Click(Sender: TObject);
begin
DataModule5.qry1.Insert;
if DataModule5.qry1.Modified then DataModule5.qry3.Post;
DataModule5.qry3.Insert;
modalResult:=mrOk;
end;
 
procedure TForm6.btn3Click(Sender: TObject);
begin
Form6.Close;
end;
end.

object Form6: TForm6
  Left = 467
  Top = 30
  Width = 717
  Height = 648
  Caption = 'Заполнение'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object img1: TImage
    Left = 0
    Top = 0
    Width = 701
    Height = 609
    Align = alClient
    Picture.Data = { /*много букв и цифр, цвет этого абзаца - зеленый, курсив*/ }
 Stretch = True
  end
  object btn1: TBitBtn
    Left = 104
    Top = 280
    Width = 145
    Height = 25
    Caption = 'Добавить фото'
    TabOrder = 0
    OnClick = btn1Click
  end
  object btn2: TBitBtn
    Left = 104
    Top = 328
    Width = 145
    Height = 25
    Caption = 'Сохранить'
    TabOrder = 1
    OnClick = btn2Click
  end
  object dbedt2: TDBEdit
    Left = 128
    Top = 64
    Width = 121
    Height = 21
    DataField = 'Название'
    DataSource = DataModule5.ds1
    TabOrder = 2
  end
  object dbcbb1: TDBComboBox
    Left = 128
    Top = 104
    Width = 145
    Height = 21
    DataField = 'Группа'
    DataSource = DataModule5.ds1
    ItemHeight = 13
    Items.Strings = (
      'Травянистое'
      'Кустарник'
      'Дерево'
      'Суккулент')
    TabOrder = 3
  end
  object dbedt3: TDBEdit
    Left = 128
    Top = 144
    Width = 121
    Height = 21
    DataField = 'Семейство'
    DataSource = DataModule5.ds1
    TabOrder = 4
  end
  object dbedt4: TDBEdit
    Left = 136
    Top = 184
    Width = 121
    Height = 21
    DataField = 'Происхождение'
    DataSource = DataModule5.ds1
    TabOrder = 5
  end
  object dbedt5: TDBEdit
    Left = 136
    Top = 224
    Width = 121
    Height = 21
    DataField = 'Размер'
    DataSource = DataModule5.ds1
    TabOrder = 6
  end
  object dbmmo1: TDBMemo
    Left = 368
    Top = 240
    Width = 185
    Height = 89
    DataField = 'Освещение'
    DataSource = DataModule5.ds3
    TabOrder = 7
  end
  object dlgOpenPic1: TOpenPictureDialog
    Left = 280
    Top = 328
  end
end