SelectedFamilyName example for Delphi

procedure TForm1.Button3Click(Sender: TObject); 
var
 strBuffer: String; 
begin
    strBuffer:= 'Source Name = ' + LEADTwain1.SelectedSourceName + Chr(13) +
          'Product Family Name = ' + LEADTwain1.SelectedFamilyName + Chr(13) +
                'Manufacturer Name = ' + LEADTwain1.SelectedManufacturerName + Chr(13); 
      ShowMessage ( strBuffer ); 
end;