How to paint 2 gradients together on a Canvas?

Question

Please look at this sample gradient image I did with a Paint program:

It c

Answer 1

iWidth: Integer;
iWidth := Width div 2;
GradientFillCanvas(Canvas, Col1, Col2, Rect(0, 0, iWidth, Height), gdHorizontal);
GradientFillCanvas(Canvas, Col2, Col1, Rect(iWidth, 0, Width, Height),gdHorizontal);