Formlulario Login/Pass y Form Principal

[mantraxer21]

Estimados:

Tengo una muy pequeña aplicación, para poder hacer funcionar Login y Clave y luego de ello que se vaya al Formulario Principal.

Realidad:

FormLogin (fsNormal)
FormPrincipal (fsMDIForm)

Código del Boton Ingresar del Formulario LOGIN

Código Delphi [-]
procedure TForm1.IngresarClick(Sender: TObject);
var form : TMainForm;
begin

qLogin.close;
qlogin.ParamByName('txtlogin').AsString:=Login.Text;
qlogin.ParamByName('txtclave').AsString:=Clave.Text;
//Validaciones.Validate;

qlogin.Open;
if qlogin.Eof then begin
  MessageDlg('Usuario incorrecto, vuelva a intentarlo.',mtError,[mbOk],0);
    exit;
end;
FormPrincipal.Tag:=1;
  self.Hide;
       FormPrincipal.StatusBar1.Panels[1].text:=qLoginNOMBRE_COMPLETO.text;
       Application.MessageBox( 'Bienvenido al Sistema',
  MB_ICONINFORMATION );
    Application.CreateForm(TFormPrincipal, FormPrincipal);
    FormPrincipal.Tag:=0;
    Principal.FormPrincipal.show;

En la última línea invoca al formulario Principal, el tema está todo bien, pero en el Formulario Principal, en un botón que llama a un "Formulario Hijo", da un error diciendo que no está activo.

Alguien puede ayudar con esto ???

Saludos Cordiales