[delphi-br] Não acha a classe

[Weber Luvisa]

var
   Formscroll : TForm;
   FormClass  : TFormClass;
   HandlePack : THandle;
   Hhd  : HMODULE;
   List : TList;
   I : Integer;
   ListClasses : TClassList;

begin
  List := TList.Create;
  ListClasses := TClassList.Create;
  if HandlePack > 0 then
  begin
     FormClass := TFormClass(GetClass('TFClientes'));
     if Assigned(FormClass) then
     begin
        Formscroll := FormClass.Create(Application);
        Formscroll.ShowModal;
        ShowMessage('Localizado');
     end else ShowMessage('Classe não localizado');
  end else ShowMessage('Paconte não localizado');
end;

// no pacote uso..
initialization
   RegisterClass(TFClientes);
finalization
   UnRegisterClass(TFClientes);

mas mesmo assim não acha a classe para abrir o formulário..
o que posso estar fazendo errado?