SourceName example for Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
   n: L_INT; 
   nCount: L_INT; 
 strName: String; 
begin
   nCount:= LEADTwain1.SourceCount; 
   for n:= 0 to nCount - 1 do
   begin
    strName:= LEADTwain1.SourceName [n]; 
      ShowMessage ( strName ); 
       //Do More processing on source name
   end; 
end;