`TPSPascalPreProcessorParser`
		SetText
		Next

CT Web help

CodeTyphon Studio