[Tovarisch]

Код:

procedure TNetConstructor.Button1Click(Sender: TObject);
var
WRect: EdgeCoords;
begin
{MyNode:= TNode.Create(Self);
MyNode.Name:='Node1';
MyNode.Parent:=(NetConstructor);
MyNode.Top:=100;
MyNode.Left:=100;
MyNode.Height:=10;
MyNode.Width:=10;
MyNode.Visible:=True;
MyNode.Enabled:=True; }
{
MyEdge:= TEdge.Create(Self);
MyEdge.Name:='Edge1';
MyEdge.Parent:=NetConstructor;
WRect.Sourcex:=100;
WRect.Sourcey:=100;
WRect.Endx:=50;
WRect.Endy:=50;
MyEdge.EdgeRect:=WRect;     }

if Sender is Tbutton then
  begin
  NetConstructor.Caption:=(Sender as TButton).Name;
  end;
end;

Если кому вдруг понадобится