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;