// Tolga Çakıroğlu - ( For User 2003-2004 )
Function Parlat( renk: tcolor; miktar: byte ): tcolor;
var
R ,
G ,
B : Word;
begin
R:= GetRValue( Renk ); Inc(R, miktar);
G:= GetGValue( Renk ); Inc(G, miktar);
B:= GetBValue( Renk ); Inc(B, miktar);
if R>255 then R:= 255;
if G>255 then G:= 255;
if B>255 then B:= 255;
Result:= R + (G shl 8) + (B shl 16);
end;