Mit FileListBox in verschiedene Verzeichnisse springen

[smart]

Hallo Alle!
Ich möchte mit der FileListBox während der Laufzeit in verschiedene Verzeichnisse springen und die dortigen Dateien in einer ListBox übertragen. Die Verzeichnisse Stehen im Memo1. Wieso klappt dieser Code nicht?

Delphi-Quellcode:

For I := 0 To Memo1.Lines.Count - 1 do
begin
    FileListBox1.Directory := Memo1.Lines[I];
    FileListBox1.Update;
    For A := 0 To FileListBox1.Items.Count -1 Do
   ListBox1.Items.Add(FileListBox1.Items[A])
end;

Gruß
Heike