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;

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 @Simon Viegas Muito Obrigado mesmo, me ajudaram bastante!

implementation

 uses Unit3;

{$R *.dfm}

procedure TFlogin.SpeedButton1Click(Sender: TObject);
begin
if(edit1.text='teste') and (edit2.Text='teste')then
 Image3.Visible := True and fprincipal.showmodal
else
  messagebox(0,'Usuário ou Senha invalido, tente novamente','Erro de Acesso',0)

end;

procedure TFlogin.SpeedButton2Click(Sender: TObject);
begin
  edit1.Clear;
  edit2.Clear;
  edit1.SetFocus;
end;

procedure TFlogin.SpeedButton3Click(Sender: TObject);
begin
  Flogin.Close;
  Flogin.Destroy;
end;

end.

Como usar o IF, Else neste caso? Estou tendo problemas. ajudem por favor!