Salvar objeto em um arquivo

Olá,

Alguem pode me indicar a forma que posso usar para salvar um objeto (com sua estrutura e dados) para um arquivo e depois como recupera-lo?

Tentei usar a procedure:

procedure salvaobj;
var
f: TFileStream;
begin
f:= TFileStream.Create(´teste.sav´, fmCreate);
try
f.Writebuffer(tim[1],sizeof(tim[1]));
finally
f.Free;
end;
end;

procedure recuperaobj;
var
o: TFileStream;
begin
o := TFileStream.Create(´teste.sav´, fmOpenRead);
try
tim[2].Free;
o.Readbuffer(tim[2],sizeof(o)) ;
finally
o.Free;
end;

end;

que salva o objeto tim[1] e depois recupera os dados em tim[2]; funciounou a principio, mas se adiciono um componente a minha form principal ele para de funcionar (acho que tem a ver com o size do count).

Agradeço ajuda.