DBGrid Ehlib + SQL - Удаление записи в строке

      procedure TForm.btnDeleteClick(Sender: TObject);
        begin
            begin
                if MessageDlg('Удалить?', mtConfirmation, mbYesNo, 0)=mrYes then
                begin
                  MultiSelectGrid(DBGridEh1, 'delete from p_migrant ');
                  MainFilter(nil);
                end;
            end;
        end;

procedure TForm.N1Click(Sender: TObject);
begin
      if ADOQuery1.RecordCount>0 then
  if (ActiveControl is TDBGridEh) then
    with TDBGridEh(ActiveControl) do
      if CheckDeleteAction and (geaDeleteEh in EditActions) then
        DBGridEh_DoDeleteAction(TDBGridEh(ActiveControl),true);
end;

SQL.Text:='delete FROM `p_migrant` where id = '+IntToStr(ADOQuery1.FieldByName('id').AsInteger);

SQL.Text:='delete FROM `p_migrant` where id = '+ADOQuery1.FieldByName('id').AsString;

SQL.Text:='delete `p_migrant` where `p_migrant`.id = '+ADOQuery1.FieldByName('id').AsString;

procedure TPayment.Save;
begin
  with DM.ADOQueryDoc do
    begin
      Close;
      SQL.Text:='call `payment_Save`('+IntToStr(self.iID)+
                                     ', '+IntToStr(self.iStateID)+
                                     ', '''+FormatDate(DateToStr(self.dDatePayment))+
                                     ''', '+IntToStr(self.iCompanyID)+
                                     ', '+IntToStr(self.iIndividualID)+
                                     ', '+CurrToStr(self.cPrice)+
                                     ', '+IntToStr(self.iServiceID)+
                                     ', '''+self.sTypePayment+
                                     ''', '+IntToStr(Integer(self.bDebt))+');';
      Open;
      self.iID:=Fields[0].AsInteger;
      self.iOrdID:=Fields[1].AsInteger;
    end;
end;

    Datasource1.DataSet.Close;
    Datasource1.DataSet.Open;