Вывод в таблицу или StringGrid или DbGrid?

CREATE DEFINER = 'root'@'%'
PROCEDURE naumeter_db.GetMonitorData(IN FromDT DATE, IN ToDT DATE)
BEGIN
  DECLARE TABLENAME VARCHAR(100);
  DECLARE HEADER TEXT;
  DECLARE BODY TEXT;
  DECLARE FIELDNAME VARCHAR(10);
  DECLARE S_FIELDS TEXT;
  DECLARE DIFF INT;
  DECLARE I INT;
  DECLARE DONE INT DEFAULT 0;
 
  DECLARE vLDATE DATE;
  DECLARE vUID INT;
  DECLARE vTR DOUBLE(15,2);
  DECLARE vDAYCNT INT;
  DECLARE vNCH INT;
  DECLARE MonData CURSOR FOR
    SELECT t.LDATE, u.User_ID, t.TRAF FROM users u LEFT JOIN 
          (SELECT 
            STR_TO_DATE(DATE_FORMAT(sc.Date_Of_Log,'%d.%m.%Y'),'%d.%m.%Y') AS LDATE,
            sc.User_ID, 
            (SUM(sc.Traf_In)/1024 + SUM(sc.Traf_Out)/1024) AS TRAF 
          FROM stat_cfos sc 
          WHERE sc.Date_of_log BETWEEN CONCAT(FromDT,' 00:00:00') AND CONCAT(ToDT,' 23:59:59')
          AND sc.Process_Ex NOT LIKE '%otal%'
          AND !ISNULL(sc.User_ID)
          GROUP BY STR_TO_DATE(DATE_FORMAT(sc.Date_Of_Log,'%d.%m.%Y'),'%d.%m.%Y'), sc.User_ID) t ON t.User_ID=u.User_ID
          ORDER BY t.LDATE;
  DECLARE CONTINUE HANDLER FOR SQLSTATE '02000' SET done = 1;
 
  SELECT DATEDIFF(ToDT,FromDT) INTO DIFF;
 
  SELECT MD5(CONCAT(ToDT,FromDT,NOW())) INTO TABLENAME;
  INSERT INTO logtbl(MSG,LDATE) VALUES(TABLENAME,NOW());
 
  SET HEADER := CONCAT('CREATE TEMPORARY TABLE IF NOT EXISTS `',TABLENAME,'`(ID INT(11) NOT NULL AUTO_INCREMENT, DAYCNT INT DEFAULT 0,
                    UID INT DEFAULT 0,
                    UIN VARCHAR(150) DEFAULT NULL,
                    NCHECK INT DEFAULT 0,');
  SET BODY := '';
  SET S_FIELDS := '';
  SET I := 0;
  REPEAT
    SELECT DATE_FORMAT(FromDT + INTERVAL I DAY,'%d.%m.%Y') INTO FIELDNAME;
    SET BODY := CONCAT(BODY,'`',FIELDNAME,'` DOUBLE(15,2) DEFAULT NULL,');
    SET I := I + 1;
  UNTIL I > DIFF END REPEAT;
  SET @BODY := CONCAT(HEADER,BODY,' PRIMARY KEY (ID)) ENGINE = INNODB;');
 
  PREPARE m_query FROM @BODY;
  EXECUTE m_query;
  DEALLOCATE PREPARE m_query;
 
  SET @INS := CONCAT('INSERT INTO `',TABLENAME,'`(UID,UIN)
    SELECT DISTINCT(u.User_ID),concat(c.CName ," -> ",s.sname," -> ",u.uname," ") AS Ship_User 
    FROM  ship s, users u, company c
      WHERE s.ID = u.ShipID 
      AND c.ID = s.CompanyID
       ORDER BY concat(c.CName ," -> ",s.sname," -> ",u.uname," "), User_ID');
 
  PREPARE i_query FROM @INS;
  EXECUTE i_query;
  DEALLOCATE PREPARE i_query;
  OPEN MonData;
  REPEAT
    IF NOT DONE THEN
      FETCH MonData INTO vLDATE, vUID, vTR;
      IF NOT ISNULL(vLDATE) THEN
        SET @UPD := CONCAT('UPDATE `',TABLENAME,'` SET `',DATE_FORMAT(vLDATE,'%d.%m.%Y'),'` = ',ROUND(vTR,2),' WHERE UID = \'',vUID,'\'');
 
        PREPARE u_query FROM @UPD;
        EXECUTE u_query;
        DEALLOCATE PREPARE u_query;
    
        SELECT COUNT(DISTINCT STR_TO_DATE(DATE_FORMAT(sc.Date_Of_Log,'%d.%m.%Y'),'%d.%m.%Y')) INTO vDAYCNT
        FROM stat_cfos sc 
        WHERE sc.Date_of_log BETWEEN CONCAT(FromDT,' 00:00:00') AND CONCAT(ToDT,' 23:59:59')
        AND sc.Process_Ex NOT LIKE '%otal%'
        AND sc.User_ID = vUID;
        IF ISNULL(vDAYCNT) THEN SET vDAYCNT := 0; END IF;
      ELSE 
        SET vDAYCNT := 0;
      END IF;
    SET vNCH := 0;
    CALL GetUnCheckedCount(vUID,ToDT,@UNCNT);
      SELECT @UNCNT INTO vNCH;
    
    SET @UPD := CONCAT('UPDATE `',TABLENAME,'` SET DAYCNT = ', vDAYCNT,', NCHECK = ',vNCH,' WHERE UID = ',vUID,';');
    PREPARE u_query FROM @UPD;
    EXECUTE u_query;
    DEALLOCATE PREPARE u_query;
    END IF;
  UNTIL DONE END REPEAT;
  CLOSE MonData;
 
     SET @SEL := CONCAT('SELECT * FROM `',TABLENAME,'` ORDER BY DAYCNT DESC, UIN ASC, UID ASC');
 
  PREPARE s_query FROM @SEL;
  EXECUTE s_query;
  DEALLOCATE PREPARE s_query;
 
END