Degradado sobre cualquier elemento
 

Hola Amigos,

Mediante lo siguiente consigo un 'degradado' sobre el fondo del Form:

Código Delphi [-]
procedure TForm1Paint(Sender: TObject);
var Row, Ht: Word ;
    Rect : TRect;
begin
  Ht := (ClientHeight + 50) div 51 ;
  for Row := 0 to 50 do
   with Canvas do begin
     Brush.Color := RGB(236, 233, Row+185) ;
     Rect.Left   := 0;
     Rect.Top    := Row * Ht;
     Rect.Right  := ClientWidth;
     Rect.Bottom := (Row + 1) * Ht;
     FillRect(Rect);
   end;
end;

Mi pregunta es si se puede hacer lo mismo de alguna manera con cualquier otro elemento que no sea el propio form (por ejemplo un Shape).

Saludos a todos.