Держи либу
Функция одна:
drawgradient(startColor,endColor,x,y,width,height: integer);
Пример кода:
color1:=16103865;
color2:=14957885;
drawgradient(color1,color2,0,0,getwidth,getheight div 2);
drawgradient(color2,color1,0,getheight div 2,getwidth,getheight div 2);
repaint; delay(10000);