CreateNumericContainerRange example for Delphi

procedure TForm1.btnCreateNumericContainerRangeClick(Sender: TObject); 
var
 twCap: TW_CAPABILITY; 
begin
   FillMemory ( @twCap, sizeof(TW_CAPABILITY), 0 ); 

   twCap.Cap:= ICAP_XRESOLUTION; 
   twCap.ConType:= TWON_RANGE; 

   LEADTwain1.CreateNumericContainerRange ( @twCap, TWAINNUMERICTYPE_TW_FIX32, 100, 600, 100, 200, 300 ); 

   LEADTwain1.SetCapability ( @twCap, LTWAIN_CAPABILITY_SET ); 
   LEADTwain1.FreeContainer ( @twCap ); 
end;