Progresbar zur Laufzeit zur Marquee ProgressBar machen?

[Cyberbob]

nix. nur den code der oben steht. sonst ist das formular leer und im sonstigen programm befindet sich auch nicht mehr
aber hier mein code:

Delphi-Quellcode:

uses
  ..., xpman;

procedure TForm2.FormCreate(Sender: TObject);
const
  PBS_MARQUEE  = $08;
  PBM_SETMARQUEE = WM_USER + 10;
var
  cs:LongInt;
begin
  cs := GetWindowLong(ProgressBar1.Handle, GWL_STYLE);
  SetWindowLong(ProgressBar1.Handle, GWL_STYLE, cs Or PBS_MARQUEE);
  SendMessage(ProgressBar1.Handle, PBM_SETMARQUEE, 1, 40);
  progressbar1.DoubleBuffered := True;
end;

ohne progressbar1.DoubleBuffered := True; läuft alles bestens