Delphi компонент Timer

[Sunstrider]

ProgressBar1.position:=ProgressBar1.position +10;
if ProgressBar1.position = 100 then Showmessage ('you ');
Timer1.Enabled:=False;

Прогрес бар на 10 ке зависает и все

[Jaw]

Прогрес бар на 10 ке зависает и все
Ему больше ничего не остается делать(

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := ProgressBar1.Position < ProgressBar1.Max;
ProgressBar1.Position := ProgressBar1.Position + 10;
if ProgressBar1.Position= 100 then
ShowMessage('you');
end;

[Sunstrider]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := ProgressBar1.Position < ProgressBar1.Max;
ProgressBar1.Position := ProgressBar1.Position + 10;
if ProgressBar1.Position= 100 then
begin
ShowMessage('you');
end;
end;
спасибо помогло