GetUserLookupTable example for Delphi

var
   PointCount: Integer;
begin
   LEADImage1.UserLUTCurveSize := 3;
   LEADImage1.UserLUTCurveX[0] := 0;
   LEADImage1.UserLUTCurveY[0] := 0;
   LEADImage1.UserLUTCurveX[1] := 128;
   LEADImage1.UserLUTCurveY[1] := 150;
   LEADImage1.UserLUTCurveX[2] := 255;
   LEADImage1.UserLUTCurveY[2] := 255;
   LEADImage1.GetUserLookupTable (@PointCount);
   LEADImage1.RemapIntensity (CHANNEL_MASTER);
   ShowMessage (IntToStr(PointCount) + ' Points were modified');
end;