Na abertura de um form o fechamento do form que o chamou????

O fonte do meu botão que vai verificar a senha e usuário eh este e eu gostaria de saber como eu faço para fechar o frmentrada qdo o frmagenda for aberto?
sendo que qdo ele abre o frmagenda ele passa até da condição e executando tudo e até oq não deve !!!!!!

begin
qrysenha.close;
qrysenha.sql.Clear;
qrysenha.SQL.Add(´select * from tblsenha´);
qrysenha.SQL.Add(´where usuario=:USU and senha=:SEN´);
qrysenha.ParamByName(´USU´).AsString := edtlogin.Text;
qrysenha.ParamByName(´SEN´).AsString := edtsenha.Text;
qrysenha.prepare;
qrysenha.Open;
if qrysenha.RecordCount > 0 then
begin
frmagenda.ShowModal;
frmentrada.Close;
end
else
begin
Application.messagebox(´Login ou senha inválidos!´,´Erro´,mb_Ok+mb_IconError);
edtlogin.Clear;
edtsenha.Clear;
edtlogin.SetFocus;
end
end;

Valeu !!!!!!!......se alguém conseguir me ajudar eu agradeço !!!!!!