MEMBUAT PROGRES PADA DELPHI

KOMPONEN:
1.
2.sProgressBar1
3.Timer

procedure TForm19.Timer1Timer(Sender: TObject);
begin
if sProgressBar1.Position =100 then
  begin
  form19.Visible:=false;
    form7.Show;
    timer1.Enabled:=false;
  end
else
  begin
    sProgressBar1.Position:=sProgressBar1.Position+1;
  end;
end;