Kopiowanie w TListView

Witam!
Jestem początkującym <ort>programistom</ort>. Mam pytanie dotyczące kopiowania pomiędzy dwoma komponentami TListView. Używam procedury:

procedure TForm1.ToolButton14Click(Sender: TObject);
var
 R : TSHFileOpStruct;
 Kopiuj, Kopiuj1 : string;
begin
with R do
begin
 Kopiuj:= ListView1.SelectedItem;
 Kopiuj1:= ListView2.Directory;
 Wnd:=Handle;
 lpszProgressTitle := 'Skopiuj plik....';
 wFunc:=FO_COPY;
 pFrom:=PChar(Kopiuj);
 pTo:=PChar(Kopiuj1);
 fFlags:=FOF_NOCONFIRMMKDIR;
end;
SHFileOperation(R);
end;

Otóż problem jest następujący. Procedura ta kopiuje mi tylko pierwszy item zaznaczony w TListView. Jak zrobić żeby kopiowało wszystkie zaznaczone itemy.
Lub co wstawić za

 Kopiuj:= ListView1.SelectedItem;

, według mnie problem tkwi w tej zmiennej.
Z góry dziękuję.
Pozdrawiam BoMeR.</ort>

Odczytaj ile jest zaznaczonych item-ów zrób pętle w której bedziesz je kopiowal i gotowe!!!!

Dzieki wielkie problem rozwiazany ;)