[Niiña]

Código Delphi [-]
  ShowMessage('Ingresando datos');
  transaccion.Active:=false;
  Query.Close;
  Query.SQL.Clear;
  Query.SQL.Add('select max(Tabla1.Idtabla)+1 FROM Tabla1');
  Query.Open;
  Edit1.Text:=IntToStr(Query.Fields[0].AsInteger);
  Query.ParseSQL:=false;
  conexion.ExecuteDirect('INSERT INTO Tabla1 (Idtabla, nombretabla) values ('+Edit1.Text+','+Edit2nombre.Text+')');
  transaccion.Commit;
  ShowMessage('El registro ha sido ingresado.');
  transaccion.Active:=true;