Reference TFormatTextEvent

TFormatTextEvent allows the text written to an associated control to be changed

TFormatTextEvent = procedure(Sender: TObject; var Text: string) of object;