delphi Код:
// min - растояние от куда идем до где нам быть
// startX - кординаты куда идем
// startY - кординаты куда идем
// myXpos - кординаты чара
// myYpos - кординаты чара
// xxx - кординаты на растояние min от кординат куда идем
// yyy - кординаты на растояние min от кординат куда идем
// rast - растояние от чара до куда идем
// count - скоко отрезков длиной min будит на отрезке от чара до куда идем
rast:=dist(startX,startY,MyXpos,MyYpos);
count:=Round(rast/min);
xxx:=Round((MyXpos+startX*count)/(1+count));
yyy:=Round((MyYpos+startY*count)/(1+count));