Code:
BankToFlaxPath := [Point(90, 85), Point(89, 95), Point(90, 103), Point(91, 113), Point(91, 119), Point(91, 130), Point(94, 136), Point(95, 145), Point(98, 155), Point(98, 163), Point(98, 177), Point(100, 188), Point(100, 201), Point(103, 207), Point(103, 212), Point(103, 216), Point(103, 228), Point(107, 237), Point(107, 242), Point(111, 251), Point(111, 258), Point(111, 268), Point(111, 271), Point(112, 281), Point(114, 285), Point(118, 291), Point(127, 295), Point(135, 295), Point(143, 293), Point(150, 288), Point(144, 279)];
My procedure to walk is: