ListView SelectedItems durchlaufen

[CReber]

Delphi-Quellcode:

  with lvGroups do
    if SelCount>0 then
      for i:=0 to SelCount-1 do begin
        GrpName:=InputBox('Gruppe ändern', 'Name ändern:',Selected[i].Caption);

Das Selected[i].Caption funktioniert nicht. Was muss ich stattdessen eingeben um jedes selektierte durchzulaufen?

// Edited: Es handelt sich um eine ListView