Как сделать прогресс бар туда-сюда в С++ Builder 6?

#include <commctrl.h>
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    ::SetWindowLong(ProgressBar1->Handle, GWL_STYLE, PBS_MARQUEE + WS_CHILD + WS_VISIBLE);
    ::SendMessage(ProgressBar1->Handle,PBM_SETMARQUEE, 1, 50);
}

    const int PBS_MARQUEE = 8;
    const int PBM_SETMARQUEE = WM_USER + 10;

//---------------------------------------------------------------------------
#define NO_WIN32_LEAN_AND_MEAN
#include <vcl.h>
#include <commctrl.h>
#pragma hdrstop
#define PBS_MARQUEE 8
#define PBM_SETMARQUEE (WM_USER+10)
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#pragma resource "WindowsXP.res"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
InitCommonControls();
long cs = GetWindowLong(ProgressBar1->Handle, GWL_STYLE);
SetWindowLong(ProgressBar1->Handle, GWL_STYLE, cs | PBS_MARQUEE);
SendMessage(ProgressBar1->Handle, PBM_SETMARQUEE, (WPARAM) true, (LPARAM)100);
ProgressBar1->Position-100;
}

    long cs = GetWindowLong(ProgressBar1->Handle, GWL_STYLE);
    SetWindowLong(ProgressBar1->Handle, GWL_STYLE, cs &~PBS_MARQUEE);

void Marquee (bool mar,HANDLE pbar)
{
long cs;
cs = GetWindowLong(pbar, GWL_STYLE);
if(mar==false)
{
SetWindowLong(pbar, GWL_STYLE, cs &~PBS_MARQUEE);
}
else
{
SetWindowLong(pbar, GWL_STYLE, cs | PBS_MARQUEE );
SendMessage(pbar, PBM_SETMARQUEE, (WPARAM) true, (LPARAM)100);
}
}