CombineWarp example for Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
   ptSrc: TPoint;
   aptsDest: TLEADCombineWarpDstPointsArray;

begin
   LEADImage1.Load( 'e:\Master.jpg', 0, 1, 1 );
   LEADImage2.Load ( 'e:\Slave.jpg', 0, 1, 1 );

   ptSrc.X:= 0;
   ptSrc.Y:= 0;

   aptsDest [ 0 ].X:= 100;
   aptsDest [ 0 ].Y:= 100;
   aptsDest [ 1 ].X:= 200;
   aptsDest [ 1 ].Y:= 75;
   aptsDest [ 2 ].X:= 200;
   aptsDest [ 2 ].Y:= 275;
   aptsDest [ 3 ].X:= 100;
   aptsDest [ 3 ].Y:= 175;

   LEADImage1.CombineWarp(aptsDest, LEADImage2.Bitmap, ptSrc, LEADImage2.BitmapWidth, LEADImage2.BitmapHeight, CBW_BILINEAR );
end;