Prueba haber esto....
Código:
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