求救，dxflowchart遇到问题？请大家帮忙！！！

Question

大家好！
最近我在用第三方控件dxflowchart画流程图是遇到一个问题，烦请大家有空之余帮小弟看看：
问题是这样的：
我想对Tdxflowchart控件的连线（connection)画上箭头:
procedure   TForm1.Button1Click(Sender:   TObject);
var
    NewObject   :   TdxFcObject;
    NewConnection   :   TdxFcConnection;
begin
    NewObject   :=   dxFlowChart1.CreateObject(5,   5,   25,   25,   fcsEllipse);
    NewObject.Text   :=   'first   object';
    NewObject:=dxFlowchart1.CreateObject(5,75,25,25,fcsEllipse);
    NewObject.Text:='last   object';
    NewConnection   :=dxfolwchart1.CreateConnection(dxflowchart1.Objects[0],   dxflowchart1.Objects[1],   12,   2);
    dxflowchart1.connections[0].ArrowDest.ArrowType   :=   fcaArrow;
end;
执行时没有箭头显示，若是连线是事先在窗体画好的，则有箭头。不知何解？请大家帮帮忙，指点一下我啊！！谢谢了！！ 

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  NewObject:TdxFcObject;
  NewConnection:TdxFcConnection;
begin
  NewObject:=dxFlowChart1.CreateObject(5,5,25,25,fcsEllipse);
  NewObject.Text:='first object';
  NewObject:=dxFlowchart1.CreateObject(5,75,25,25,fcsEllipse);
  NewObject.Text:='last object';
  NewConnection:=dxFlowChart1.CreateConnection(dxflowchart1.Objects[0],dxflowchart1.Objects[1],12,2);
  dxflowchart1.connections[0].ArrowDest.ArrowType:=fcaArrow;
  dxflowchart1.connections[0].ArrowDest.Width:=1 * 5 + 5;//定义箭头
  dxflowchart1.connections[0].ArrowDest.Height:=1 * 5 + 5;//定义箭头
end;

Answer 2

谢谢 Delphi(Pascal) code，问题已解决，非常之感谢！