Вторая строчка в вашем коде
Код:
...
Image1.Canvas.LineTo(konec.x + 20, konec.y + 20);
...
З.Ы. Ну и конечно, дописать в начало
Код:
dec(konec.x, 20);
dec(konec.y, 20);
З.Ы.З.Ы. Да, что-то это не работает правильно...
З.Ы.З.Ы.P.S. Нашлось по теме только
такое