Canvas的问题？

Question

有以下语句
   statusbar1.Panels[0].Style :=psOwnerDraw;
 statusbar1.Canvas.font.Color :=clgreen;
 statusbar1.Canvas.brush.style:=bsclear;
 statusbar1.Canvas.TextOut(2,2,'状态栏');
在2，2位置上输出文字'状态栏'，我现在想把输出的文字改为‘暗暗’，而
现在的问题是状态栏'与‘暗暗’相重叠，请问有什么方法，先清除“状态栏”
再往同样位置上写其他的字？

Answer 1

先输出空字符然后在输出'暗暗' statusbar1.Canvas.TextOut(2,2,'');
 statusbar1.Canvas.TextOut(2,2,'暗暗');

Answer 2

statusbar1.Panels[0].TEXT := '' ;