procedure TFormPpal.FormCreate(Sender: TObject);
begin
FormSplash:= TFormSplash.Create(Application);
FormSplash.tiempo:=0;
FormSplash.Timer1.Enabled:=True;
FormSplash.ShowModal;
FormSplash.Free;
FormLogin:= TFormLogin.Create(Application);
FormLogin.ShowModal;
FormLogin.Free;
......
end;