GDI+ Как сделать линии со стрелками

unit Unit5;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, GDIPAPI, GDIPOBJ;
 
type
  TForm5 = class(TForm)
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var Form5: TForm5;
 
implementation
 
{$R *.dfm}
 
procedure TForm5.FormPaint(Sender: TObject);
var
g:TGpGraphics;
customCapPen:TGpPen;
CustomCap:TGpCustomLineCap;
path:TGpGraphicsPath;
begin
g:=TGpGraphics.Create(Canvas.Handle);          //----Создаём графику GDI+
path:=TGpGraphicsPath.Create;                  //----Создаем путь стрелки
path.AddLine(0,0,-1,-8);                       //
path.AddLine(-1,-8,1,-8);                      //----Рисуем путь стрелки
path.AddLine(1,-8,0,0);                        //
CustomCap:=TGpCustomLineCap.Create(nil,path);  //----Создаем объект стрелки с путём
customCapPen:=TGpPen.Create(aclRed,2);         //----Создаем перо, цвет-красный, ширина 2
customCapPen.SetCustomEndCap(CustomCap);       //----Назначаем перу объект стрелки
g.SetSmoothingMode(SmoothingModeAntialias);    //----Устанавливаем антиалиасинг
g.DrawLine(customCapPen,100,100,200,50);       //
g.DrawLine(customCapPen,100,200,200,200);      //----Рисуем линии
g.DrawLine(customCapPen,200,400,100,300);      //
CustomCap.Free;                                //----Всё освобождаем
path.Free;
customCapPen.Free;
g.Free;
end;
 
end.