Помогите высчитать координаты перемещения

[TAMBIK]

function rastoyanie(xpos1, ypos1, xpos2, ypos2:extended):integer; //возвращ rezu растояние
begin
result:= Round(Sqrt(((xpos1-xpos2)*(xpos1-xpos2))+((ypos1-ypos2)*(ypos1-ypos2))));
end;

[Johnson]

TAMBIK, это просто просчет расстояния от точки до точки... его я и сам догадался как посчитать =)

[TAMBIK]

//  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));