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

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