login für anwendung

[Delphi-Phil]

Hallo Dellphianer

ich habe mit diesen Code für meinen Programm Login gebaut.

Das Problem ist relativ einfach! Ich habe Login als HauptForm definiert, da ja als erstest beim Programmstart die Login Form kommen soll. Wenn erfolgreich eingeloggt ist, soll diese aber wieder zu gehen! Nur geht dann logischerweiße bei Login.Close die ganze anwendung zu!

Wie kann man das verhindern?
Ich habe die Stelle im Code auch nochmal markiert!

Delphi-Quellcode:

procedure TLogin.Button1Click(Sender: TObject);
var
username : String;
password : String;
userid : String;
userid2 : String;
begin
//Vars fülllen mit den UserLogin Daten
username := CBUsername.Text;
password := EdtPassword.Text;

QryUserCheck.Close;
QryUserCheck.Parameters.ParamByName('username').Value := username;
QryUserCheck.Parameters.ParamByName('password').Value := password;
QryUserCheck.Open;

userid := QryUserCheck.FieldByName('id').AsString;
edit1.Text := userid;

QryUserCheck2.Close;
QryUserCheck2.Parameters.ParamByName('userid2').Value := userid2;
QryUserCheck2.Open;

userid2 := QryUserCheck2.FieldByName('id').AsString;

if userid = userid2 then

begin
 //nach falschem Login
ShowMessage('kein login, falsche daten!!!');
end

else

begin
//nach erfolgreichem Login
HauptForm.Show;
Login.Close;//Hier ist das Hacken, da Login die MainForm ist beendet er das ganze programm nach erfolgreichem Login
end

end;

Vielen Dank, gruß Phil