如何在shape上显示文字?

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
    shape1.brush.Color:=clyellow;
    canvas.textout(120,120,'HelloWorld!');
end;
 
我把shape1组件移到和输出文字重叠的地方，编译后，按下button1，希望在以黄色为背景的shape1上输出helloworld!文字，目前只能按两次button才能显示出文字，当改变窗体大小后（窗体重绘？）文字即消失，需再次按下button才能显示出文字（文字未重绘？？）。shape1组件显示黄色倒是正常。
   另外如果我将form1的formstyle改设成fsMDIForm(多文档主窗体),结果按下button，shape1不能显示黄色，文字也显示不出来。请问我该怎么才能在shape上显示文字呢？

Answer 1

其实我想模拟一个黄色的Led灯,上面写上文字'helloworld!',在按下button后，显示这个led灯（我知道能用Timage实现）。