Form schliesst nicht :(

[bundy]

Diese lästige Erscheinung habe ich aber im Login form auch und da hab ich nichts nach Close

Delphi-Quellcode:

procedure TLogin_Form.SpeedButton1Click(Sender: TObject);
begin
mySQLDatabase1.Host:=Edit3.Text;
mySQLDatabase1.UserName:=Edit1.Text;
mySQLDatabase1.UserPassword:=Edit2.Text;
mySQLDatabase1.DatabaseName:='bkf';
mySQLDatabase1.Connected:=true;
if mySQLDatabase1.Connected = True then
        Begin
        Hauptform.Label106.Caption:=DBText4.Caption;
        Hauptform.Label107.Caption:=DBText5.Caption;
        Hauptform.Label106.Visible:=true;
        Hauptform.Label107.Visible:=true;
        Hauptform.Label105.Visible:=true;

        Hauptform.StatusBar1.Panels.Items[0].Text:='Benutzer: '+ DBText4.Caption+' '+DBText5.Caption;

        Hauptform.StatusBar1.Panels.Items[1].Text:='Angemeldet um: '+TimeToStr(Time);

        Hauptform.StatusBar1.Panels.Items[2].Text:='Status: '+DBText2.Caption;

        Hauptform.StatusBar1.Panels.Items[3].Text:='Vers.: 2.0';

        // Version überprüfen
        mySQLQuery_vers.SQL.Clear;
        mySQLQuery_vers.SQL.Text:='select * from Vers';
        mySQLQuery_vers.Active:=true;
        if mySQLQuery_versVersionsnummer.Text <>'2.0' then   //Versionsnummer
         begin
         ShowMessage('Version überprüfen...Update anfordern'+#13+#13+'neue Version: '+mySQLQuery_versVersionsnummer.Text);
         Hauptform.Close;
         end;

        end;

close;
end;