AddShadow example for Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
   { Load a bitmap at its own bits per pixel  }
   LEADImage1.Load( 'IMAGE3.CMP', 0, 1, 1 );

   { Apply  shadow effect  to the image}
   LEADImage1.AddShadow( SHADOW_SE, 0, SHADOW_CLR_GRAY );
end;