Hallo,
hast Du schon mal folgendes versucht (ich beschränke mich auf das Wesentliche, ansonsten Dein Code wie gehabt)
Delphi-Quellcode:
procedure TForm1.DrawSpectrum;
begin
// clear background
Buffer.Canvas.Brush.Color := TStyleManager.ActiveStyle.GetStyleColor (scWindow);
Buffer.Canvas.FillRect(Rect(0, 0, Buffer.Width, Buffer.Height));
// Rest wie gehabt
end;
Gruß