Wind example for Delphi

procedure TForm1.WindClick(Sender: TObject);
begin
   LEADImage1.Wind( 40, 4500, 0 );
end;