lista plików z opendialog

Mam taki kodzik:

<font color="blue">var
i:integer;
begin
opendialog.Execute;
if opendialog.FileName '' then
begin
for i:=0 to opendialog.Files.Count-1 do
begin
lista1.Items.Add(ExtractFileName(opendialog.FileName[i]));
end;
end;
end;</span>

...Który teoretycznie powinien załadować do listy same nazwy wybranych plików w opendialog. Niestety zamiast tego pokazują mi sie jakieś literki w liście np: "h", "d", "D" itd.

Co jest źle ?

var
i:integer;
begin
if opendialog.Execute and (opendialog.FileName '') then //