GetLinearVOILUT example for Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
   Width: L_DOUBLE;
   Center: L_DOUBLE;
   nRet: L_INT;
begin
   { check the linearity of  the LUT and computes its window width and center
   by using GetLinearVOILUT method. }

   LEADImage1.Load('e:\image1.cmp', 0, 1, 1 );
   nRet:= LEADImage1.GetLinearVOILUT(Center, Width, 0);
   if(nRet = SUCCESS) then
      ShowMessage( 'Window Center = ' + FloatToStr(Center) + Chr(13)+                   'Window Width' + FloatToStr(Width));end;