1:
2:
3:
4:
5:
6:
7:
8:
9:

if listbox1.itemindex >= 0 then
  begin
     memo1.lines.add(listbox1.items[listbox1.itemindex]);
   end
      else
        begin
          showmessage('z.B. kein Eintrag ausgewählt');
        end;
    end;					

1:

memo1.lines.savetofile('c:\kalle\' + listbox1.items[listbox1.itemindex]);					

1:
2:
3:
4:
5:
6:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  if ListBox1.ItemIndex > 0
   then Memo1.Lines.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex])
   else ShowMessage('Nichts ausgewählt');
end;