怎么控制TrackBar不能从位置1移向位置0？其他都可以移动。 ：）

如何控制TrackBar不能从位置1移向位置0？其他都可以移动。 ：）
thanks   :)

[解决办法]
看看这样行不行？

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if TrackBar1.Position <= 0 then TrackBar1.Position := 1;
end;