Jak skopiować pliki z FileListBox

Jak jednym kliknięciem przycisku skopiować wszystkie pliki z FileListBox ?
Do tej pory mogę to robić zaznaczając je po kolei i za każdym razem klikać kopiuj
Czy istnieje sposób aby skopiować je wszystkie na raz?

for I:=0 to FileListBox1.Items.Count-1 do begin
  //Tu robisz kopiowanie przez np. CopyFile, i jako argument podajac np.
  // FileListBox1.Items.Strings[I];
end;

Dzięki