procedure ComponentSaveToXmlFile(AComponent: TComponent; const FileName: string; AParent: TComponent);