Unit não desaparece

[System98_]

Boa noite pessoal, estou tendo um pequeno probleminha e gostaria de saber se há algo que eu possa fazer para resolver isto.

Bom, estou criando um programinha bem simples. O programinha consiste em duas Unit's, uma chamada de Login e outra de Principal, até aí tudo bem, porém quando faço o Login a Unit Principal vem normalmente, só que a unit de Login ainda fica por trás, mas quando fecho a unit principal fecha os dois. Gostaria de saber como resolver isso para que ao fazer o login corretamente a Unit do Login suma e fique só a principal, Segue a imagem e o código:

 

implementation
  uses Principal;
{$R *.dfm}

procedure TLogin.Button1Click(Sender: TObject);
begin
  if(edit1.Text = 'teste') and (edit2.Text = 'teste') then
    begin
     Uprincipal.ShowModal;
     Login.Close;
    end
   else
    messagebox(0,'Usuário ou Senha invalidos, tente novamente','Erro de acesso',0)
end;

procedure TLogin.Button2Click(Sender: TObject);
begin
  Login.Close;
end;

procedure TLogin.CheckBox1Click(Sender: TObject);
begin
  if checkbox1.Checked then
    edit2.PasswordChar := #0
  else
    edit2.PasswordChar := '*'
end;

procedure TLogin.Timer1Timer(Sender: TObject);
begin
  if (edit1.Text = 'teste') and (edit2.Text = 'teste') then
    begin
      image2.Visible := false;
      image3.Visible := true;
    end
  else
    begin
    image2.Visible := true;
    image3.Visible := false;
    end
end;

end.

 

[bngomes]

Faça um teste.. tire o showmodal e veja se fecha.. ou inverta a order.. close primeiro e abrir o segundo form depois...

 

no mais.. você pode usar o login.hide pra esconder o form..

[System98_]

Obrigado pela resposta, mas só funcionou assim:

procedure TLogin.Button1Click(Sender: TObject);
begin
  if(edit1.Text = 'teste') and (edit2.Text = 'teste') then
    begin
     Login.Hide;
     Uprincipal.ShowModal;
     Login.Close;
    end
   else
    messagebox(0,'Usuário ou Senha invalidos, tente novamente','Erro de acesso',0)
end;