procedure TMyShape.Paint;
var P : array [1..7] of TPoint;
    a,i,R: integer;
begin
  Canvas.Brush.Color := clRed;
  Canvas.Brush.Style := bsSolid;
  a := 0;
  R := Width div 2;
  for i:= 1 to 7 do begin
    P[i].x := R+Round(R*sin(a*pi/180));
    P[i].y := R+Round(R*cos(a*pi/180));
    a := a+60;
  end;
  Canvas.Polygon(P);
  Canvas.TextOut((Width-Canvas.TextWidth(Text1)) div 2,10,Text1);
  Canvas.TextOut((Width-Canvas.TextWidth(Text2)) div 2,22,Text2);
  Canvas.TextOut((Width-Canvas.TextWidth(Text3)) div 2,35,Text3);

//вот тут рисуется линия TDrawPanel - панель со включенным канвасом (на ней рисую);
 (Self.Parent as TDrawPanel).Canvas.Pen.Width:=3; 
 (Self.Parent as TDrawPanel).Canvas.Moveto (Round(Left+width/2)-80,Round(Top+height/2)+80);
 (Self.Parent as TDrawPanel).Canvas.Lineto (Round(Left+width/2),Round(Top+height/2)) ;

end;

TDrawObject = class
  private
    fCanvas: TCanvas; // канвас, на котором будем рисовать (или на панели или на движущемся PaintBox)
    fBounds: TRect;
  public
    procedure Draw(R: TRect); virtual;abstract;
    property Bounds: TRect read fBounds write fBounds;
end;

TArrow = class(TDrawObject)
  private
    fPenSize: integer;
  public
    procedure Draw(R: TRect);override;
    property PenSize: integer read fPenSize write fPenSize;
end;

THexagon = class(TDrawObject)
  private
    fArrow: TArrow; // стрелка к фигуре
    fText1: string;
    fText2: string;
  public
    procedure Draw(R: TRect);override;
    property Text1: string read fText1 write fText1;
    property Text2: string read fText2 write fText2;
end;

TDrawPanel = class(TPanel)
  private
    fHexList: TList;  // список всех фигур
    fMoveHex, fMoveArrow: TPaintBox; // эти Боксы для передвижения
    fHex: THexagon; // указатель на ту фигуру которую двигаем
    xHex,yHex,xArrow,yArrow: integer;
    procedure DoPaintHex(Sender: TObject);
    procedure DoPaintArrow(Sender: TObject);
  public
    procedure Paint;override;
    constructor Create(AOwner: TComponent);override;
    destructor Destroy; override;
    function FindHexagon(X,Y: integer): THexagon;
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
    procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
end;

// отрисовка панели
procedure TDrawPanel.Paint;
var i: integer;
begin
  inherited;
// рисуем все фигуры
  for i := 0 to fHexList.Count-1 do THexagon(fHexList[i]).Draw(THexagon(fHexList[i]).Bounds);
// а затем рисуем все стрелки
  for i := 0 to fHexList.Count-1 do THexagon(fHexList[i]).fArrow.Draw(THexagon(fHexList[i]).fArrow.Bounds);
end;