var inStream,outStream:TMemoryStream;
begin
   inStream:=TMemoryStream.Create;
   outStream:=TMemoryStream.Create;
   try
      inStream.WriteComponent(self);
      inStream.Position:=0;
      ObjectBinaryToText(inStream,outStream);
      outStream.Position:=0;
      outStream.SaveToFile('c.txt');
   finally
     FreeAndNil(inStream);
     FreeAndNil(outStream);
   end;
   //WriteComponentResFile('c.res',self);
end;