Разобрался, все таки идет через Memory. Без разницы Integer String Real clBlack - 0 clMaroon - 6303920 clGreen - 35584 clOlive - 3107669 clWhite - 16777215. Все устал печатать. Все соответствует выше приведенной формуле. Спасибо.