GlassEffect example for Delphi

procedure TForm1.GlassEffectClick(Sender: TObject);
begin
   LEADImage1.GlassEffect( 20,10, GLASS_WFRQ Or GLASS_HPER );
end;