Point1 variable
Var
Point1;
Unit
TeCanvas