[Alegun]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
Memo1.Clear;
for i:= FileListBox1.TopIndex to FileListBox1.Count-1 do
 if FileListBox1.Selected[i] then Memo1.Lines.Add(FileListBox1.Items.Strings[i]);
end;