[vtdeleon]

Saludos

Código Delphi [-]
 resp2 := Application.MessageBox('Deseas Registrar a Otro Cliente','Mantenimiento de Clientes',MB_YESNO+MB_ICONINFORMATION);
     if resp2=6 then
 begin
  DM_Conexiones.IBTransaction1.Commit;
   DM_Conexiones.IBT_Clientes.Active := True;
  DM_Conexiones.IBT_Clientes.Last;//No creo que sea necesario 
  DM_Conexiones.IBT_Clientes.Insert;//Podrias usar Append
  DM_Conexiones.IBQuery1.SQL.Clear;
   DM_Conexiones.IBQuery1.SQL.Add('SELECT num_sig FROM CODI_INCRE1');
  DM_Conexiones.IBQuery1.ExecSQL;//Utiliza Open, ya que ExecSql por lo regular se utiliza para Updates e Insert
  txt_codi.Text := DM_Conexiones.IBQuery1.ParamByName('num_sig').AsString;// Supongo que num_sig 
 //es una columna no un parametro, por tanto no entiendo esto
  txt_nomb.SetFocus
             end
          else
             begin
  DM_Conexiones.IBT_Clientes.Last
              end

Quizas no resuelva tu problema, pero...