[xchrom]

а чем тебя TTabControl и TPageControl не радуют?
ИМХО не надо изобретать велосипед на гусеничном ходу

update:
если еще не отказался от этой идеи то вот кое на что наткунлся случайно:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var f: TFileStream; begin   f := TFileStream.Create('c:\stream.vcl', fmcreate);   f.WriteComponent(lb);   f.Free; end;   ...   var   f: TFileStream; begin   f := TFileStream.Create('c:\stream.vcl', fmOpenRead);   f.ReadComponent(lvFiles);   f.Free;