Прорисовка компонентов

[Gregor]

добрый вечер! Есть такой код:

procedure CDropForm.DrawCaptButton(var aBtnRect: TRect; aBtnType: TButtonType);
var
  TmpCanvas: TCanvas;
  Details: TThemedElementDetails;
begin
  TmpCanvas := TCanvas.Create;
  try
    // Получаем ссылку на канвас всего окна
    TmpCanvas.Handle := GetWindowDC(Handle);
    try
      TmpCanvas.Font.Color := clBlue;
      TmpCanvas.Font.Style := [fsBold];
      TmpCanvas.Pen.Color := clYellow;
      TmpCanvas.Brush.Color := clBtnFace;
      // Если включена поддержка тем в приложении - то рисуем в новом стиле
      if ThemeServices.ThemesEnabled and (not(csDesigning in ComponentState)) then
      begin
        Details := GetElement(aBtnType);
        ThemeServices.DrawElement(TmpCanvas.Handle, Details, aBtnRect);
      end
      else
        // или рисуем так как рисует кнопки Windows 98
        DrawButtonFace(TmpCanvas, aBtnRect, 1, bsAutoDetect, False, FButtonDown, False);
    finally
      ReleaseDC(Handle, TmpCanvas.Handle);
    end;
  finally
    TmpCanvas.Free;
  end;
end;

Но при изменении этой формы от нарисованных кнопок остается след. Не стирается старая прорисовка. Как от этого избавиться? Заранее спасибо