[x128]

Код:

      l[x].rgbtBlue:=(255+l[x].rgbtBlue*a+14*(255-a)) shr 8;
      l[x].rgbtGreen:=(255+l[x].rgbtGreen*a+42*(255-a)) shr 8;
      l[x].rgbtRed:=(255+l[x].rgbtRed*a+106*(255-a)) shr 8;

где (a: byte) значение прозрачности 0..255