var
Q : TPoint;