FunctionalLight example for Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
   { Load the bitmap, keeping the bits per pixel of the file }
   LEADImage1.Load ('e:\\image1.cmp', 0, 1, 1 );

   { Apply the linear lighting effect }

   LEADImage1.FunctionalLight(   0, 75, 0, 0, 0, Trunc(LEADImage1.BitmapWidth /2), Trunc(LEADImage1.BitmapHeight /2), 0, Nil, 0, FL_LINEAR_QUADRATIC + FL_LINEAR_OUTER);
end;