Mehre Dateien in einer Zeile

[mimi]

Delphi-Quellcode:

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
var
  str:String;
  id:Integer;
begin
  if sldb.TableExists('Files') = True then begin
    sltb := sldb.GetTable('SELECT ID,Name FROM Files where ID= '+IntTostr(ListBox1.ItemIndex));
    str:=sltb.FieldAsString(sltb.FieldIndex['Name']);
    Item.Caption:=ExtractFileName(str);
    item.SubItems.add(ExtractFilePath((str)));
 end;

end;

warum bekomme ich so nur den ersten index und nicht alle einträge die mit listbox1.itemindex übereinstimmen ?