کد نویسی برای کشیدن node در دیاگرام بوسیله activex addflow

procedure TForm1.Button1Click(Sender: TObject);

var

  node: INode;

  pic: IPictureDisp;

begin

    node := AddFlow1.Nodes.Add(100, 100, 800, 1000);

    GetOlePicture(Image1.Picture, pic);

    node.Picture := pic;

    node.DrawStyle := afTransparent;

    node.Text := 'Test';

end;