FreeHandWave example for Delphi

procedure TForm1.FreeHandWaveClick(Sender: TObject);
var
   apUserPoint: Array [ 0..3 ] of TPoint;
   papUserPoint: pPOINT;
   Amplitudes: Array [ 0..12 ] of L_INT;
   pAmplitudes: L_PINT;
begin
   apUserPoint [0].x := 0;
   apUserPoint [0].y := 0;

   apUserPoint [1].x := 3;
   apUserPoint [1].y := 10;

   apUserPoint [2].x := 9;
   apUserPoint [2].y := -10;

   apUserPoint [3].x := 12;
   apUserPoint [3].y := 0;

   pAmplitudes:= @Amplitudes;
   papUserPoint:= @apUserPoint;

   LEADImage1.GetCurvePoints(papUserPoint, 4, pAmplitudes, Nil, GUB_LINEAR );

   LEADImage1.FreeHandWave( pAmplitudes, 13, 100, 10, 0, 0, FILL_RPT Or DIS_FRQ );
end;