CreateNumericContainerArray example for Delphi

procedure TForm1.btnCreateNumericContainerArrayClick(Sender: TObject); 
var
   uItem: Array [ 0..2 ] of TW_UINT16; 
 twCap: TW_CAPABILITY; 
begin
   FillMemory ( @twCap, sizeof(TW_CAPABILITY), 0 ); 

   twCap.Cap:= ICAP_FILTER; 
   twCap.ConType:= TWON_ARRAY; 

   uItem[0]:= TWFT_RED; 
   uItem[1]:= TWFT_GREEN; 
   uItem[2]:= TWFT_BLUE; 

   LEADTwain1.CreateNumericContainerArray ( @twCap, TWAINNUMERICTYPE_TW_UINT32, 3, L_PVOID(@uItem) ); 

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