wie Rückpfeil in graphen zeichnen delphi ??

[pagan1900]

Hi ich habe ein probleme ich mus eine graphen ertellen für den dijkstra algorithmus , nur die sache ist die, der graph kann ja auch rückpfeile besitzen
z.b. 1->2 und von 2->1
ohne das der pfeil gleich zum mond "auswandert"
ich müste den rückpfeil etwas versetzt dartellen
nur wie kann ich das realisieren?

Code:

for locali:=1 to m do
  begin
  Pfeilstartx:=Kx[anf[locali]];
  Pfeilstarty:=Ky[anf[locali]];
  Pfeilendex:=Kx[ende[locali]];
  Pfeilendey:=Ky[ende[locali]];
  //Linie zeichnen
  normal.Canvas.Brush.Color := clBlack;
  normal.Canvas.Pen.Style   := psSolid;
  normal.Canvas.Pen.Width   := 3;
  normal.Canvas.MoveTo(pfeilstartx,pfeilstarty);
  normal.canvas.LineTo(pfeilendex,pfeilendey);

danke im vorraus!