Store object to database

Thanks for all the help.

I origionally did not want to make my class a TComponent decendant.  I thought that all the inherited functionality would make my class use more resources, and I wouldn't have used it anyway, except for WriteComponent and ReadComponent.  

So, this is what I have done:

I have to classes, my business object (TSP_PriceListImportOption) and a data access object (TSPPriceListImportOption_FBData).

  TSP_PriceListImportOption = class
  private
    _data : ISPPriceListImportOption_Data;//Pointer to data access object
  public
    _new : boolean;
    SupplierID : integer;
    StartAtRow : integer;
    ItemCodeCol : integer;
    PriceCol : integer;
    DescriptionCol : integer;
    UseMultipleTabs : boolean;
    TabsToSkip : TStrings;
    NotAvailablePrice : string;
    DescSpanRows : boolean;
   
    constructor Create(DAO : ISPPriceListImportOption_Data; SupplierID : Integer);
    procedure Save();
  end;

Within my data access object I created two procedures, WriteToStream and ReadFromStream.

The constructor calls the ReadFromStream procedure in my data access object, and the Save procedure the WriteToStram procedure.

procedure TSPPriceListImportOption_FBData.WriteToStream(stream: TStream;
  plio: TSP_PriceListImportOption);
var
  len, i, cnt : integer;
  str : string;
begin
  //Write the first few integer properties to the stream.
  stream.Write(plio.SupplierID, sizeof(plio.SupplierID));
  stream.Write(plio.StartAtRow, sizeof(plio.StartAtRow));
  stream.Write(plio.ItemCodeCol, sizeof(plio.ItemCodeCol));
  stream.Write(plio.PriceCol, sizeof(plio.PriceCol));
  stream.Write(plio.DescriptionCol, sizeof(plio.DescriptionCol));

  //Whether multiple tabs should be scanned
  len := StrToInt(BoolToStr(plio.UseMultipleTabs));
  stream.Write(len, sizeof(len));

  //Write to the stream each tab that should not be scanned.
  cnt := plio.TabsToSkip.Count;
  stream.Write(cnt,sizeof(cnt));
  for i := 0 to cnt-1 do begin
    str := plio.TabsToSkip.Strings[i];
    len := length(str); // get the length of the address
    Stream.Write(len, sizeof(len)); // write length of address
    Stream.Write(str[1], len); // write the address
  end;

  //Not Available Price value
  str := plio.NotAvailablePrice;
  len := length(str);
  stream.Write(len,sizeof(len));
  stream.Write(str[1],len);

  //Does the description span multiple lines
  len := StrToInt(BoolToStr(plio.DescSpanRows));
  stream.Write(len, sizeof(len));

end;

procedure TSPPriceListImportOption_FBData.ReadFromStream(stream: TStream;
  plio: TSP_PriceListImportOption);
var
  len,i,cnt : integer;
  str : string;
begin
  stream.Read(plio.SupplierID, sizeof(plio.SupplierID));
  stream.Read(plio.StartAtRow, sizeof(plio.StartAtRow));
  stream.Read(plio.ItemCodeCol, sizeof(plio.ItemCodeCol));
  stream.Read(plio.PriceCol, sizeof(plio.PriceCol));
  stream.Read(plio.DescriptionCol, sizeof(plio.DescriptionCol));

  stream.Read(len,sizeof(len));
  plio.UseMultipleTabs := StrToBool(IntToStr(len));

  stream.Read(cnt,sizeof(cnt));
  for i := 0 to cnt-1 do begin
    stream.Read(len,sizeof(len));
    setLength(str, len);
    stream.Read(str[1],len);
    plio.TabsToSkip.Add(str);
  end;

  //Not Available Price value
  stream.Read(len,sizeof(len));
  setLength(str, len);
  stream.Read(str[1],len);
  plio.NotAvailablePrice := str;

  //Does the description span multiple rows
  stream.Read(len,sizeof(len));
  plio.DescSpanRows := StrToBool(IntToStr(len));
end;

This seems to do the job and my object is saved to DB.