Validar Una ContraseÑa Y Cerrar La Ventana De Inicio De Sesion

[vtdeleon]

Saludos

Seguro qeu te sale qeu esta undeclare "mrok", pues dale a F1 teniendo el cursor sobre la palabra para que te salga la ayuda y en esta sale la unidad qeu contiene declarada esta constante.

Agrega en la parte Use (arriba) en el DPR la unidad Controls

[TrUnkS]

Lo hice. Agregue la unidad que lo contiene debajo de USE y me funciona con este codigo:

Application.Initialize;
FSesion:=TFsesion.Create(nil);
with FSesion do begin if FSesion.ShowModal=mrok then begin Application.Terminate;
end else begin
Application.Run;
end; //if
end; //with
Application.CreateForm(TFprincipal, Fprincipal);

y de ahi vienen todas las demás FORM. De todas formas este código es diferente. Con el código en que habiamos quedado no me funcionaba pero no entiendo porqué. ¿Es necesario poner en FSesion caFree para que libere la memoria? o ya es suficiente con esto?. Gracias por la ayuda