Registrar classes dinamicamente passando uma String - Delphi

procedure Tform_consulta_padrao.btn_inserirClick(Sender: TObject);
var
  NomeForm: string;
  FormCadastro: TForm_cadastro_padrao; 
begin
  NomeForm := Self.Name;
  Delete(NomeForm, 1, Length('formconsulta ')); <--- aqui tem um _  no nome, mas o discord nao mostrou 
FormCadastro := TForm_cadastro_padrao(FindClass('TFormcadastro' + NomeForm).Create(Self));   {Tentei dessa maneira e não consegui }

  try
    FormCadastro.ShowModal;
  finally
    FormCadastro.Free;
  end;
end;