[lekssp]

Помогите пожалуйста !
У меня включён мультивыбор в filelistbox.
Надо сделать так, чтобы по нажатию кнопки на форме все имена выделенных файлов заносились в массив или в memo.

[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;