Form con usuario y contraseña
 

Buenos dias a tod@s!!

Tengo una aplicacion mdi y lo que quiero hacer es que antes de que se ejecute esta, me salga una pantalla que pregunte por una contraseña y usuario. Lo que he hecho es :

Código Delphi [-]
function TForm1.validarPassword():boolean;
var
  correcto : boolean;
begin
  //E1 y E2 son constantes
  if (Edit1.Text = E1) and (Edit2.Text = E2) then
    begin
    correcto := true;
    result := correcto ;
    end
  else
    begin
    correcto := false;
    showmessage('Mierda');
    result := correcto;
    end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if validarPassword() then
    begin
    Application.Initialize;
    Application.CreateForm(TForm2, Form2);
    Application.Run;
    end;
end;

Todo esto lo hago en el form de la contraseña. Consigo que me salga esta ventana, pero cuando relleno con los datos correctos me da un error :
Cannot create form. No Mdi forms are currently active.

Si alguien puede ayudarme, gracias de antemano

Ese aviso se produce porque no encuentra la ventana MDI y se esta creando un Form MDIChild.

Un Saludo.

Buenas, gracias por contestar. Pero lo siento no lo entiendo. Si me pudieras alguna solucion si la hay. y explicarme porque de este error.
Gracias:)

:cool: Vale ahora me he dao cuenta que me e equivocado y he puesto mdichild en vez de mdiform,lo habia leido un monton de veces y no me habia dao cuenta pensando que eso estaba bien.Gracias.