#pas
procedure THIType_Save._work_doSaveToFile1;
var s1:PStream;
    typ:PType;
begin
  Free_and_nil(s1); // <-- here
  s1 := NewWriteFileStream(ReadString(_Data,_data_FileName,_prop_FileName));
  typ := ReadType(_Data,_data_GType);
  Type2Stream(typ,s1);
  s1.Free;
  _hi_CreateEvent(_Data,@_event_onSave);
end;