FamilyName example for Delphi

procedure TForm1.Button2Click(Sender: TObject); 
var
 n: L_INT; 
   nCount: L_INT; 
 strBuffer: String; 
begin
 nCount:= LEADTwain1.SourceCount; 
   for n:= 0 To nCount - 1 do
   begin
    strBuffer:= 'Source Name = ' + LEADTwain1.SourceName [n] + Chr(13) +
          'Product Family Name = ' + LEADTwain1.FamilyName [n] + Chr(13) +
                'Manufacturer Name = ' + LEADTwain1.ManufacturerName [n] + Chr(13);  ShowMessage ( strBuffer ); end; 
end;