RevEffect 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 Rev effect on the image }
   LEADImage1.RevEffect(3, 37);
end;