Dateinamen in ListView ausgeben

[DelphiSourcer]

Hallo!

Ich komm hier nicht weiter. Ich will Dateinamen in einer ListView ausgeben. Es wird nichts angezeigt. Ich verwende die folgenden Datei und Directorysuchroutinen aus der Delphi-Praxis:

DirSearch, umbenannt in DirectorySearch,
Später auch FindAllFiles.
Wie kann ich in die Sparte verlinken, damit Ihr den Quellcode das nächste Mal schneller findet?

Leider krieg ich keine Dateien angezeigt. Warum nicht. Ich brauch Eure Hilfe. Wie krieg ich die Daten in die ListView?

Hier mein Quelltext:

Delphi-Quellcode:

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, 
  DirSearch, 
  DiskTools;  
  //In diesen beiden letzten Units habe ich den Quellcode zur Datei- und Directorysuche
  //aus der Delphi Praxis zusammen gefaßt.

type
  TForm1 = class(TForm)
    ListView1: TListView;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  Item: TListItem;
  Directories,
  Files: TStringList;
  Index: Integer;
begin
  Directories := TStringList.Create;
  Files := TStringList.Create;
    ListView1.Items.Create(ListView1);
  //Jetzt Directory durchsuchen
  DirectorySearch('C:\','*.*',Directories, Files);
  //Directories und Files wird als Var Parameter übergeben. Hab ich gegenüber der  
  //Originalroutine geändert
  for Index:= 0 to Files.Count-1 do
  begin
     //Hier wird die ListView gefüllt
    ListView1.Items.Add;
    Item := TListItem.Create(ListView1.Items);  //Hier EAccessViolation
    Item.Caption := Files[Index];
  end;
end;

end.

Danke schon im Voraus

DelphiSourcer