llamar formulario al hacer click en un tabSheet del componente PageControl

[novato_erick]

Gracias roman:

aquì esta el codigo completo en el Evento OnMouseDown del PageControl:

Código Delphi [-]
procedure TfrmEmpleados.pgcDatos_EmpleadoMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  begin
    if pgcDatos_Empleado.PageCount >0 then
       begin
          if not Assigned(frmDatos_Generales) then
            begin
              frmDatos_Generales :=TfrmDAtos_Generales.Create(self);
              frmDatos_Generales.Parent :=pgcDatos_Empleado.pages[0];
              frmDatos_Generales.Show;
            end;
       end;
   if pgcDatos_Empleado.PageCount >= 1 then
     begin
     if not Assigned(frmNivel_Educativo) then
      begin
        frmNivel_Educativo :=TfrmNivel_Educativo.Create(self);
        frmNivel_Educativo.Parent :=pgcDatos_Empleado.pages[1];
        frmNivel_Educativo.Show;
      end;
     end;
  end;

En teoria funciona con los dos (2) formularios y son 5 en total que voy a llamar en el mismo ciclo. mi pregunta es roman estoy en lo correcto en la forma que lo hice?

Gracias por tu tiempo

novato_erick