LineProfile Delphi Example

{This example assumes there is a bitmap loaded}
var
   pRed: L_PINT;
   pGreen: L_PINT;
   pBlue: L_PINT;
   FirstPoint, SecondPoint: TPoint;

begin
   pRed:= Nil;
   pGreen:= Nil;
   pBlue:= Nil;

   LEADImage1.LineProfile(FirstPoint, SecondPoint, pRed, pGreen, pBlue);

   {use the colors in the arrays here}

   // free the three buffers
   GlobalFreePtr ( pRed );
   GlobalFreePtr ( pGreen );
   GlobalFreePtr ( pBlue );
end;