Delphi TaskBar Generation progress in Icone #Delphi

[Lomanu4]

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
      case ComboBox1.ItemIndex of
        0:Taskbar1.ProgressState:=TTaskBarProgressState.None;
         1:Taskbar1.ProgressState:=TTaskBarProgressState.Normal;
          2:Taskbar1.ProgressState:=TTaskBarProgressState.Indeterminate;
           3:Taskbar1.ProgressState:=TTaskBarProgressState.Error;
            4:Taskbar1.ProgressState:=TTaskBarProgressState.Paused;
      end;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Taskbar1.ProgressMaxValue:=TrackBar1.Max;
Taskbar1.ProgressValue:=TrackBar1.Position;
end;

end.