BumpMap example for Delphi

procedure TForm1.BumpMapClick(Sender: TObject);
begin
   LEADImage1.BumpMap( LEADImage2.Bitmap, 5, 0, 3, 0, 0, 0, 0, True, 50, 0, Nil );
end;