Loading

procedure TForm2.FormCreate(Sender: TObject);
var i:integer ;
begin
ProgressBar1.Max := 100000 ;
for I := 1 to 100000 do begin
  Application.ProcessMessages ;
  ProgressBar1.Position := i ;
  end;

  Label1.Caption :=' Selamat Datang ';

end;