[Gabriel]

Prueba haber esto....

 try
  Screen.Cursor := crAppStart;
  if not Assigned(FPersonal) then
  begin
   FPersonalDM := TFPersonalDM.Create(Application);
   FPersonal := TFPersonal.Create(Application, TabPersonal);
  end;
  PageControl1.ActivePage := TabPersonal; // TabSet per Personal en formulari principal
  FPersonal.Show;
  Application.ProcessMessages;
 Finally
  Screen.Cursor := crDefault;
 end;

saludos