1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

begin
  typfile := TStringList.Create;
  conffile := TStringList.Create;
  typfile.Clear; conffile.Clear; printerkonfig.Clear;
  typfile.LoadFromFile('prntyp.txt');
  for i := 0 to typfile.Count - 1 do begin
    if posn(printermodel.Text,typfile.Strings[i],1) > 0 then begin
      try
        conffile.LoadFromFile(copy(typfile.Strings[i],posn(';',typfile.Strings[i],2)+1,Length(typfile.Strings[i])));
      except
        printerkonfig.Items.Add('Keine Zusatzfächer');
      end;
    end;
  end;
  if conffile.Count > 0 then
    for j := 0 to conffile.Count - 1 do
      printerkonfig.Items.Add(copy(conffile.Strings[j],0,posn(';',conffile.Strings[j],1)-1));
end;