[webmasterplc]

Buenas tengo estos procedimientos para guardar, editar y eliminar, lo que necesito es una orientación de como cionvertir esas en una sola clase, un ejemplo cortito que me sirva de orientación para yo convertirla

Código Delphi [-]
procedure guardar (equipcod,equipmodelo,equipdesc,equipmarca,equipimportado,equipafijo:string; equipcost,equipvalor,equipfactorouble);
begin
with datos.tequipos do
    begin
      Close;
      Active:=False;
      Active:=True;
      Open;
      Append;
        FieldByname('eq_codigo').AsString := equipcod;
        FieldByname('eq_descripcion').AsString := equipdesc;
        FieldByname('eq_marca').AsString := equipmarca;
        FieldByname('eq_modelo').AsString := equipmodelo;
        FieldByname('eq_fechaing').AsDateTime:= now;
        FieldByName('eq_costodiario').AsCurrency:=equipcost;
        FieldByName('eq_valor').AsCurrency:=equipcost;
        FieldByName('eq_activofijo').AsString:=equipafijo;
        FieldByName('eq_importado').AsString:=equipimportado;
        FieldByName('eq_factor').AsCurrency:=equipfactor;
      Post;
      Close;
      Active:=False;

    end;

end;

procedure editar (equipcod,equipmodelo,equipdesc,equipmarca,equipimportado,equipafijo:string; equipcost,equipvalor,equipfactorouble);
begin
with datos.sqactualizar do
            begin
            Close;
            SQL.Clear;
            SQL.Add('Update csequipos');
            SQL.Add('set eq_factor=:factor, eq_valor=:valora, eq_activofijo=ropio, eq_importado=:importado,eq_descripcion=:descripcion, eq_marca=:marca,eq_costodiario=:costodiario,eq_modelo=:modelo');
            SQL.Add('WHERE eq_codigo=:codigo');
            ParamByName('descripcion').AsString:=equipdesc;
            ParamByName('marca').AsString:=equipmarca;
            ParamByName('costodiario').AsCurrency:=equipcost;
            ParamByName('modelo').AsString:=equipmodelo;
            ParamByName('codigo').AsString:=equipcod;
            ParamByName('factor').AsCurrency:=equipfactor;
            ParamByName('valora').AsCurrency:=equipvalor;
            ParamByName('importado').AsString:=equipimportado;
            ParamByName('propio').AsString:=equipafijo;
            Execute;
            end;
      MessageDlg('El Material Fue Actualizado Exitosamente', mtCustom, [mbOK], 0);

end;

 procedure eliminar(eqcodigo,partcodigo:string);
  begin
 with datos.sqeliminarcequipo do
  begin
       Close;
       ParamByName( 'eqcodigo' ).AsString :=eqcodigo;
       ParamByName( 'partcodigo' ).AsString :=partcodigo;
       ExecSQL;
  MessageDlg('Registro Eliminado Exitosamente', mtCustom, [mbOK], 0);
  end;
 end;