procedure Tfrm.ggdelExecute(Sender: TObject);
var
  result_:integer;
begin
  result_:=dm.Connection.AppServer.delGy(ch, RXGG.FieldByName('gg').AsInteger)

 case  result_ of
  0: begin // тут просто обновляется измененный список, с удаленной записью
       GetGG('gg');
      TfrmModule(Self.GetParentComponent).ReStart:=True;
       MessageDLG('Удаление прошло успешно.',mtInformation,[MBOK],0);
 end;
  1: begin
      MessageDLG('Удаление невозможно.',mtError,[MBOK],0);
     end;
  2: begin
      MessageDLG('Ошибка удаления.',mtError,[MBOK],0);
     end;
  3: begin
      MessageDLG('Удаление невозможно. У него есть магия.',mtError,[MBOK],0);
     end;
  end;
 end;
end;

// TRDM=class(TRemoteDataModule,IRDM);
function TRDM.delGG(ch,gg: Integer): Integer;
begin
  qWork.Close;// qWork - TIBQuery
  qWork.SQL.Text:= 'select * from tb_f where ch=:ch and gg=:gg';
  qWork.ParamByName('ch').AsInteger:= ch;
  qWork.ParamByName('gg').AsInteger:= gg;
  qWork.Open;

  if qWork.RecordCount <> 0 then
    result:= 1
  else
    begin
     qWork.Close;
     qWork.ParamByName('ch').AsInteger:= ch;
     qWork.ParamByName('gg').AsInteger:= gg;
     qWork.Open;
      if qWork.RecordCount <> 0 then
        result:= 3
      else
        begin
          Tran.Active:= false;
          Tran.StartTransaction;
          try
             try
            qWork.Close;
            qWork.SQL.Text:= 'delete from sp_gg where ch=:ch and gg=:gg';
 //qWork.SQL.Text:= 'delete from sp_gg where uch='+inttostr(ch)+ ' and gg='+inttostr(gg);
// Пробовал таким способом, также не удаляет

            qWork.ParamByName('ch').AsInteger:= ch;
            qWork.ParamByName('gg').AsInteger:= gg;
            qWork.ExecSQL;
            Tran.Commit;
            Tran.Active:= false;
             result:=0;
        except
            result:= 2;
            Tran.Rollback;
            Tran.Active:= false;
        end;
  end;
end; 

 function IRDM_delGy(ch, gg: Integer;): Integer;
      safecall;
//сразу после этого идет
 function IRDM.delGy = IRDM_delGy;
// а сама "функция" выглядит так
function TRDM.IRDM_delGy(ch, gg: Integer;): Integer;
begin
//
end;