1:
2:
3:
4:
5:
6:
7:

type
  TVector2D = record    x, y: extended;

type
  TCircle = record
    m: TVector2D;           // Mittelpunkt als 2-dimensionaler Vektor
    r: extended;            // Radius las sehr große Fließzahl					

1:
2:
3:
4:
5:
6:
7:
8:

var
  Kreis: TCircle;

...

if Key = #47 then          // Ich rate jetzt einfach mal, dass #47 die rechte Pfeiltaste ist
  Kreis.m.x := Kreis.m.x + 1
else if Key = ...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

function PointOfIntersection(const A, B, C, D: TVector2D): TVector2D;
var
  AB, CD  : TVector2D;
  delta   : Single;
  t, s    : Single;
begin
  Result.Assign(-1, -1);
  AB.Assign(B.X-A.X, B.Y-A.Y);
  CD.Assign(D.X-C.X, D.Y-C.Y);
  // is ab ein vielfaches von cd oder vice versa?
  delta := AB.X/CD.X;
  if AB.Y*delta = CD.Y then
  begin
    // liegen beide Punkte A ^ C auf derselben Gerade?
    delta := (C.X-A.X)/AB.X;
    if (A.Y + delta * AB.Y = C.Y) and (delta <= 1) then
      Result.Assign(A.X+delta*AB.X, A.Y+delta*AB.Y);
  end else
  begin
    delta := AB.X/AB.Y;
    t := (A.X-A.Y*delta-C.X+C.Y*delta)/(CD.X-CD.Y*delta);
    s := (C.X+t*CD.X-A.X)/AB.X;
    if (t >= 0) and (t <= 1) and (s >= 0) and (s <= 1) then
      Result.Assign( C.X + t*CD.X, C.Y + t*CD.Y )
  end;
end;