Application.Initialize;
Application.Title := 'WB System';
frmLogin := TfrmLogin.Create(Application);
frmprincipal := Tfrmprincipal.Create(Application);
try
Respuesta := frmLogin.ShowModal;
if Respuesta = mrOK then
begin
Application.CreateForm(TfrmPrincipal, frmPrincipal);
Application.CreateForm(TfrmAgencia, frmAgencia);
Application.CreateForm(TfrmLogin, frmLogin);
Application.Run;
end;
finally
frmLogin.Free;
end;