2 Pytanie dotyczy Memo, ListBox

1.Mam na formie ListBox i Memo,
w ListBox mam 3 limie i o nazwie "1", "2", "3", i chciałbym aby po kliknięciu na dowolną linie w Memo pojawił się opis. Coś takiego widziałem w Gotowcach pod tytułem "Przeglądarka płyty CD" Autora: Sebek.
Właściwe chodzi mi o coś takiego, ale bez wykorzystania pliku "ini"

2.Mam w zasobie czcionkę o nazwie "Jakaś" i chciałbym, aby można było nią pisać w Memo

ad 1

w OnClick Listbox'a :

begin
   case listbox1.ItemIndex of
      0 : memo1.Text := 'opis 1';
      1 : memo1.Text := 'opis 2';
      2 : memo1.Text := 'opis 3';
   end;
end;