ProgressBar bei Verbinden durchlaufen lassen

[wfs12]

Guten Tag ich benutze eine JvspecialProgress Bar um während des Vebindens zu einem Mysql Server anzuzeigen, dass momentan gearbeitet wird. Um die Bar durchlaufen zu lassen benutze ich diesen Code:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if startbar=true then begin
    if JvSpecialprogress1.Position=JvSpecialprogress1.Maximum then JvSpecialprogress1.Position:=0 else
      JvspecialProgress1.StepIt;
  end else JvSpecialprogress1.Position:=0;
end;

Die Startvariable wird am anfang des Verbindens auf true gesetzt:

Delphi-Quellcode:

procedure TForm1.connectbtnClick(Sender: TObject);
begin
  startbar:=true;
  if connectbtn.Caption='Verbinden' then
    startconnection(db,host,benutzer,pass)
  else begin
    mysql_close(_myCon);
    MessageDlg('Die Verbindung wurde erfolgreich getrennt',mtinformation,[mbOK],0);
    connectbtn.Caption:='Verbinden';
  end;
  startbar:=false;
end;

Wenn ich jetzt auf den Button klicke wird die ProgressBar aber erst gestartet, nachdem der MessageDlg angezeigt wurde, und wird nach dessen Schließen auch gleich wieder beendet. Liegt das an dem Timer? Oder wie kann man das anders lösen?