[Alegun]

Вот, первое что в голову пришло

Код:

procedure TForm1.ListBox1Click(Sender: TObject);
begin

 case Listbox1.ItemIndex of
0: ListBox2.Items.Text:='Книги'+#13+'Журналы'+#13+'Газеты';
1: ListBox2.Items.Text:='Шаблоны'+ #10 + 'Накладные';
end;
{
if Listbox1.Items.Strings[Listbox1.ItemIndex]=  'Литеоратура' then
ListBox2.Items.Text:='Книги'+#13+'Журналы'+#13+'Газеты'
else
ListBox2.Items.Text:='Шаблоны'+#10+'Накладные';
 }
end;