ZoomWave example for Delphi

procedure TForm1.ZoomWaveClick(Sender: TObject);
var
   ptCenter: TPoint;
begin
   ptCenter.x:= Trunc(LEADImage1.BitmapWidth /2);
   ptCenter.y:= Trunc(LEADImage1.BitmapHeight /2);

   LEADImage1.ZoomWave( 20 , 10 , 0 , 0, ptCenter, 0, FILL_RPT );
end;