[Marcela]

Try
Rep_FormasPerfil:= TRep_FormasPerfil.create(self);
Rep_FormasPerfil.Query.Close;
Rep_FormasPerfil.Query.Open;
Rep_FormasPerfil.Qcr_Pagina.Preview;
Rep_FormasPerfil.free;
Except
On E:Exception do
MessageDlg('No se puede Imprimir el reporte de Perfil de la forma' + E.ClassName + ' ' + E.Message, mtError, [mbOk], 0);

En el reporte creo un query basico, nada mas.