Form con usuario y contraseña

[nenufer]

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 :


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

[Yosuun]

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

Un Saludo.

[nenufer]

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:)

[nenufer]

: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.