procedure TranslateProperties(AnObject:TObject; textdomain:string='');

This procedure iterates through all properties of AnObject and all it's subcomponents, and translates all string and widestring properties using the specified text domain. If no text domain is specified, the current text domain is used.

It will skip all properties that were marked to be ignored by one of the TP_* procedures. If no translation is found for a string, it is not translated.