Помогите поправить код связанный с копированием нескольких папок

[daget]

У меня есть на форме DirectoryListBox и FileListBox, собственно мне нужно чтобы я выделил в FileListBox несколько файлов которых я хочу копернуть в директорию C:/BDGIS, я тут код сделал, но у меня код получился так чтобы программа коприровала всеголишь 1 файл выбраный в FilelistBox, а это неудобно

function WindowsCopyFile(FromFile, ToDir : string) : boolean;
var
  F: TShFileOpStruct;
begin
  F.Wnd := 0; F.wFunc := FO_COPY;
  FromFile:=FromFile+#0; F.pFrom:=pchar(FromFile);
  ToDir:=ToDir+#0; F.pTo:=pchar(ToDir);
  F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
  result:=ShFileOperation(F) = 0;
end;

это функция копирования

procedure TForm1.Button9Click(Sender: TObject);
var FileName:string;
begin
FileName := FileListBox1.FileName;
  if FileName = '' then
    raise Exception.Create('Необходимо выбрать файл!');
if not WindowsCopyFile(filename,'c:\BDGIS') then
    ShowMessage('Не удалось скопировать')
    else ShowMessage('Копирование завершено');
end;

а это на копирование 1 файла((
Помогите пожалуйста поправить

[s.Creator]

попробуй использовать FileListBox1.Selected[i]

[daget]

У меня проблема в том чтобы выделить несколько файлов в FileListBox желательно через зажимание CTRL ну и выделением файлов мышкой. И тогда должно коопировать сразу много.

[s.Creator]

Поставь свойство MultiSelect = True