如何实现上标的显示,如显示十的三次方?

试试这个：
form1.Canvas.Brush.Color := clMenu;
form1.Canvas.Font.Size := 17;
form1.Canvas.TextOut(100,100,'10');
form1.Canvas.Font.Size := 15;
form1.Canvas.TextOut(125,93,'3');