全てのクラス型に使えるような

procedure SaveClass(AFileName:string; AObject:TObject);
procedure LoadClass(AFileName:string; AObject:TObject);

関数作れませんか。ポインタを格納している場合は、
その実体までさかのぼって保存してくれるよな。

procedure SaveClass(AFilleName:string; AObject:TObject)
var
　Stream:TStream;
begin
　Stream := TStream.Create;
　AObject.SaveToStream( Stream );
　Stream.SaveToFile( AFileName );
　Stream.Free;
end;

とか。