[casacham]

Aqui va un procedimiento que resuelve tu problema

Código Delphi [-]
 
procedure CargarFormulario(NuevaClase: TFormClass; NuevoForm: TForm;
                           Self: TComponent; Contenedor: TWinControl);
begin
      if Contenedor.ControlCount > 0 then begin
          if Contenedor.Controls[0] is NuevaClase then Exit;
          NuevoForm.Free;
          TCustomForm(Contenedor.Controls[0]).Free;
      end;
      if Assigned(NuevaClase) then begin
         Try
            NuevoForm := NuevaClase.Create(Self);
            Screen.Cursor:=crAppStart;
            with NuevoForm do begin
                 Hide;
                 BorderStyle := bsNone;
                 Parent      := Contenedor;
                 Align       := alClient;
//               OnClose     := NuevaFormaClose;
                 Show;
                 SetFocus;
                 Screen.Cursor:=crDefault;
            end;
         Except
           Screen.Cursor:=crDefault;
           ShowMessage('Error de formulario');
         end;
      end;
end;

MODO DE USO

Código Delphi [-]
 
 
procedure TF_Prin.IngresarNuevo1Click(Sender: TObject);
begin
  //CargarFormulario(TForm1,Form1,Self,PanelDondeQuieresQueTeCargueElForm);
  CargarFormulario(TF_PCTE,F_PCTE,Self,PanelForm);
end;