Desaturate example for Delphi

procedure TForm1.DesaturateClick(Sender: TObject);
begin
   LEADImage1.Desaturate( );
end;