Application.Initialize;
Application.CreateForm(TfrmPrincipal, frmPrincipal);
Application.CreateForm(TfrmPresenta, frmPresenta);
Application.ShowMainForm:= False;
with TfrmAutenticacion.Create(nil) do
try
if ShowModal = mrOk then
begin
Application.ShowMainForm:= True;
Application.Run;
end;
finally
Free;
end;