Ошибка при добавлении данных

[Микошка]

Здравствуйте! Написала код на добавление/редактирование данных в таблице. Выдает ошибку. Подскажите в чем проблема. Возникает вот эта ошибка:
empty sql statement

  procedure TForm_Reader.sButton_AddClick(Sender: TObject);
begin
  with ibqAddReader do
  begin
    if FNew = true then
    begin
      SQL.Text :=
        'execute procedure READER_ADD (-1, :surname, :name_reader, :pat, :birth, :addres, :id_card)';
      ParamByName('surname').Value := eSurname.Text;
      ParamByName('name_reader').Value := eName.Text;
      ParamByName('pat').Value := ePat.Text;
      ParamByName('birth').Value := deBirth.Date;
      ParamByName('addres').Value := eAddress.Text;
      ParamByName('id_card').Value := eIdCard.Text;
    end  ;


    {else
    begin
      // редактирование текущей записи
      SQL.Text := 'execute procedure reader_add (' + ibqReader.FieldByName
        ('id_reader').AsString +
        ', :surname, :name, :pat, :birth, :addres, :id_card)';
      ParamByName('surname').Value := eSurname.Text;
      ParamByName('name').Value := eName.Text;
      ParamByName('pat').Value := ePat.Text;
      ParamByName('birth').Value := deBirth.Date;
      ParamByName('addres').Value := eAddress.Text;
      ParamByName('id_card').Value := eIdCard.Text;
    end;   }
    Transaction.StartTransaction;
    ExecSQL;
    Transaction.Commit;
    Transaction.Active := false;
  end;
  ibqReader.Close;
  ibqReader.Open;
end;

[Аватар]

Коль else убрал и если FNew = False, то ExecSQL с какой радости?

[Микошка]

Всмысле? Код и с ELSE тоже не работает. А FNew у меня равно True, в данном случае

[Аватар]

А на какой команде ошибка?

[Микошка]

Спасибо за желание помочь! я уже разобралась, не к тому transaction-у подсоединила)