Очистить StatusBar в делфи

Как правильно очистить панель, нарисованную таким образом, чтоб при следующем рисовании не накладывалось новое на старый

PHP:

procedure TMainForm.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  case Panel.Index of
  0:
  begin
    StatusImages.Draw(StatusBar1.Canvas,Rect.Left,Rect.Top, 0, true);
    StatusBar1.Canvas.Font.Color := clBlack;
    StatusBar1.Canvas.Brush.Style := bsClear;
      StatusBar1.Canvas.TextOut(20, 3, str);
  end;
  end;
end;

Зарание спасибо.

 

probar возьми
http://www.torry.net/vcl/bars/statusbars/sbpro.zip