Ich habe gestern auch selbst die Funktion PolyBezier gefunden. Danke!
Also 4 Punkte in einem Array:
Delphi-Quellcode:
var Punkte:Array of TPoint;
begin
SetLength(Punkte,4);
Punkte[0]:=Point(StartX,StartY);
Punkte[3]:=Point(EndeX,EndeY);
//Punkte[1] und [2] sind dann die Punkte, zu denen abgelenkt wird
Image1.canvas.polybezier(Punkte);
end;