ProgressBar

I found this example:

procedure CreateProgressbar;
var
    ProgressBar :  TProgressBar;
begin
     ProgressBar := TProgressBar.Create (Form1);
     ProgressBar.Parent := Form1.Panel1;
     ProgressBar.Align := alClient;
     ProgressBar.Left := 50;
     ProgressBar.Top := 50;
     ProgressBar.Orientation := pbHorizontal;
     ProgressBar.max := 25000;
     ProgressBar.Position :=SQLExecute('select Sum(Stock_Qty) from Stock_Entry where id_Tanks = 1');
     Form1.LabelStatus.Caption := InttoStr(ProgressBar.Position);
end;

Are these all the adjustable parameters or are there others (color etc.)?
(I searched but couldn't find anything)
Thanks