TMyShape = class(TPaintBox)
  protected
    procedure Paint; override;
  public
    Text1: string;
    Text2: string;
    Text3: string;
end;

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);
end;

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
    S: TMyShape;
begin
  for i := 0 to 999 do begin
    S := TMyShape.Create(self);
    S.Parent := self;
    S.SetBounds(Random(Width-60),Random(Height-60),60,60);
    S.Text1 := '№ '+IntToStr(i);
    S.Text2 := FormatFloat('#0.00',Random*1000);
    S.Text3 := FormatFloat('#0.000',Random*1000);
  end;
end;