Pasar mi clase a una clase de 3 capas o lo mas parecido

[elarys]

Me falto otra clase que tengo para manejar los datos

Código Delphi [-]
unit Base;

interface

uses
  Classes, DB, Variants, SysUtils;

type
  TDato = class(TCollectionItem)
  private
    FNames:String;
    FTipos:TFieldType;
    FValor:Variant;
  public
    property Names: string read FNames write FNames;
    property Tipos: TFieldType read FTipos write FTipos;
    property Valor: Variant  read FValor write FValor;
  end;

  TDatos = class(TCollection)
  private
    function GetItem(Index: integer): TDato;
    procedure SetItem(Index: integer; const Valor: TDato);
  public
    constructor Create; reintroduce; overload;
    procedure AddParam(Names: string; Tipos: TFieldType; Valor: Variant);
    property Items[Index: integer]: TDato read GetItem write SetItem; default;
  end;

implementation

procedure TDatos.AddParam(Names: string; Tipos: TFieldType; Valor: Variant);
var
  claDato:TDato;
begin
  claDato:=TDato.Create(Self);
  claDato.Names := Names;
  claDato.Tipos := Tipos;
  claDato.Valor := Valor;
end;

constructor TDatos.Create;
begin
  inherited Create(TDato);
end;

function TDatos.GetItem(Index: integer): TDato;
begin
  Result := TDato(inherited GetItem(Index));
end;

procedure TDatos.SetItem(Index: integer; const Valor: TDato);
begin
  inherited SetItem(Index, Valor);
end;

end.