Hallo,
Ich habe den Fehler schon gefunden:
Delphi-Quellcode:
if zufall=1 then punkt2:=point((a.x-punkt.x), (a.y-punkt.y));
if zufall=2 then punkt2:=point((b.x-punkt.x), (b.y-punkt.y));
if zufall=3 then punkt2:=point((c.x-punkt.x), (c.y-punkt.y));
aber irgendwas ist noch an meiner überlegung falsch