Progress bar и кнопка

[Seger17]

Как сделать чтобы после загрузки ProgressBar появлялась кнопка пробовал так но не получилось

procedure TForm1.ProgressBar1Click(Sender: TObject);
begin
Button1.Vizible:=True;
end;

end.

[Человек_Борща]

У ProgressBar есть событие OnChange где и делай проверку:

procedure TForm1.ProgressBar1OnChange(Sender: TObject);
begin
   If ProgressBar.Position = 100 then
   begin
     ShowMessage('Sucsessfly!'); //Событие если прогрессбар настиг позицию 100%
   end;
end;