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;