Mehrere Dateien auslesen?

[gnui]

danke nur nun kommt die selbe nachricht schon beim klick auf den button zur ausgabe und ausgeben tut er gar nichts mehr.

Delphi-Quellcode:

var
    Form1: TForm1;
   fileNames   :array of string;
   fileDate   :array of Integer;
implementation

{$R *.dfm}
procedure auslesen(i:integer);
begin
fileDate[i] := FileAge(fileNames[i]);
end;

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;
begin
  for i := Low(FileNames) to High(FileNames) do
  begin
  if fileDate[i] > -1 then
    memo1.lines.add(fileNames[i]+' last modified date = '+
                DateToStr(FileDateToDateTime(fileDate[i])));
  end;
end;

procedure TForm1.auswhlen1Click(Sender: TObject);
var i:integer;
begin
OpenDialog1.Execute;
SetLength(FileNames, OpenDialog1.Files.Count);
for i := Low(FileNames) to High(FileNames) do
  begin
        filenames[i] := opendialog1.Files.Strings[i];
        auslesen(i);
  end;
end;