Function NewColor(color1,color2:Tcolor):TColor;
type
TRGB=packed record
R:Byte ;
G:Byte ;
B:Byte ;
A:Byte ;
end ;
var
p1:^TRGB ;
p2:^TRGB ;
P3:^TRGB ;
begin
Result := color1 ;
P1 :=@color1 ;
P2 :=@color2 ;
P3 := @Result ;
p3.R := (P1^.R+P2^.R) div 2 ;
p3.G := (P1^.G+P2^.G) div 2 ;
p3.B := (P1^.B+P2^.B) div 2 ;
end;