Yo prefiero trabajar el siguiente modelo (pseudo codigo):
Código Delphi
[-]TEquipo = class(Tobject)
Private
Procedure setCodigo(Value: Integer)
Public
Property Codigo: Integer read Fcodigo write setCodigo
Property Modelo
Property Descripcion
Construtor
Destructor
function Guardar
function Eliminar
end;
Procedure TEquipo.setCodigo(Value: Integer);
Begin
FModelo:= consulta.modelo
FDescripcion:= consulta.modelo
end;
function Guardar()
begin
if fcodigo= -1 then InsertarEnBD
else ActualizarEnBD
end;
Lo utilizarias de esta forma:
Código Delphi
[-]equipo:= TEquipo.Crate( constructor para que te cargue un eqquipo>)
equipo.codigo:= 5;
equipo.Descripcion:= 'nueva descripcion'
equipo.guardar
Por otro lado, te recomiendo realizar todas las operaciones de base de datos en otro unidad o clase... por si algun dia decides cambiar los componentes o el motor de base de datos, no afectes la dinamica de tu clase TEquipo...
saludo,