Form1 Variable

Unit: fDisplayTextByCode
var Form1: TForm1