сохранение компонента в файл

[Пепел Феникса]

procedure WriteComponent(Stream:TStream;Component:TComponent);
var M:TMemoryStream;
    Size:integer;
begin
 M:=TMemoryStream.Create;
 M.WriteComponent(Component);
 Size:=M.Size;
 Stream.WriteBuffer(Size,SizeOf(Size));
 M.Seek(0,soFromBeginning);
 Stream.CopyFrom(M,M.Size);
 M.Free;
end;

procedure ReadComponent(Stream:TStream;Component:TComponent);
var M:TMemoryStream;
    Size:integer;
begin
 M:=TMemoryStream.Create;
 Stream.ReadBuffer(Size,4);
 M.CopyFrom(Stream,Size);
 M.Seek(0,soFromBeginning);
 M.ReadComponent(Component);
 M.Free;
end;

записал три компонента в файл(я для примера) а потом остальные данные
в том же порядке и считываем(так надежнее)

думаю написать чтото типа ИНИ(только безтиповый файл)+функции которых нет в ИНИ...
что вы думаете?стоит или не стоит?

[BESS]

Stream.ReadBuffer(Size,4);

почему 4?