Wave example for Delphi

procedure TForm1.WaveClick(Sender: TObject);
begin
   LEADImage1.Wave( 20, 25, 0, 100 , 100, 0, FILL_RPT Or DIS_PER Or WV_SIN );
end;