Flimmerfrei

[faux]

Hat jemand ne idee wie ich die folgende Prozedur flimmerfrei bekomme (also nicht die Prozedur selbst, sondern das Label)

Delphi-Quellcode:

procedure TForm3.Timer1Timer(Sender: TObject);
const
  a = 10;
begin
  r := r + a;
  if r >= 255 then
  begin
    r := 0;
    g := g + a;
    if g >= 255 then
    begin
      g := 0;
      b := b + a;
      if b >= 255 then
        b := 0;
    end;
  end;
  Label1.Font.Color := RGB(r, g, b);
end;

[citybreaker]

Joa, ich hät da ne Idee.

Delphi-Quellcode:

DoubleBuffered := true;