Dann machst du was falsch.
Das funktioniert bei mir:
Delphi-Quellcode:
procedure TForm3.Button1Click(Sender: TObject);
var
FileName:
string;
begin
ListBox1.Clear;
if OpenDialog1.Execute(
Handle)
then
begin
for FileName
in OpenDialog1.Files
do
ListBox1.Items.Add(FileName);
end;
end;