1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

  Liste := TStringList.create;
  try
    GetDruckerListe(Liste);
    for i := 0 to Liste.count - 1 do begin
      NewItem := TMenuItem.Create(Self);
      NewItem.Caption := Liste[i];
      MainMenu1.Items[2].Add(NewItem);
    end;

  finally
    Liste.free;
  end;