Private WithEvents App As Application

http://www.delphisources.ru/forum/showthread.php?t=21797

transform sum(Сумма)
select Компания
from Таблица
group by Компания
pivot Month(Дата)

http://www.sql.ru/forum/1203537/kak-perevernut-tablicu