برای سایه دار کردن تمام کامپوننت ها در یک فرم از این تابع استفاده کنید:

procedure TForm1.FormPaint(Sender: T);
var
  i: Integer;
   procedure MakeShadow(control: TControl; Width: Integer; Color: TColor);
  var
    rect: TRect;
    old: TColor;
  begin
    // Bordes del control
    // Borders of controls
    rect := control.boundsrect;
    rect.Left := rect.Left + width;
    rect.Top := rect.Top + width;
    rect.Right := rect.Right + width;
    rect.Bottom := rect.Bottom + width;
    // Guardar el color
    // Save the old color
    old := Self.canvas.brush.color;
    // Pintar la sombra
    // Paint the shadow
    Self.canvas.brush.Color := color;
    Self.canvas.fillrect(rect);
    Self.canvas.brush.Color := old;
  end;
 
begin
 
  // Revisar todos los componentes del form
  // Go trough all form components
  for i:=0 to Self.ControlCount-1 do
    MakeShadow(Self.Controls[i],2,clGray);
 
end;

Speed test