property Color;
property ForeColor: TColor read FForeColor write SetForeColor;
procedure TColorProgressBar.SetForeColor(const Value: TColor); begin FForeColor := Value; SendMessage(Handle, PBM_SETBARCOLOR, 0, FForeColor); end;