Punkt in Richtung eines andere bewegen

[Saminem]

Wie ich in der Überschrift schon geschirbeen habe suche ich eine funktion oder procedur mit der ich einen Punkt auf einem weißen Bild in die Richtung eines anderen zu bewegen um eine bestimmte prozentzahl.
danke im vorraus

[Bummi]

Delphi-Quellcode:

Function CalcPoint(FixPoint,MovePoint:TPoint;Percent:Double):TPoint;
begin
  Result.X := MovePoint.X  - Round((MovePoint.X - FixPoint.X) *  Percent / 100);
  Result.Y := MovePoint.Y  - Round((MovePoint.Y - FixPoint.Y) *  Percent / 100);
end;