Lista Plików w MEMO np

żeby nie było

przeszukałem forum i w ogóle i znalzałem takie coś

http://4programmers.net/Forum/82816?h=OpenDialog#82816

ale nie wiem czemu w takim fragmencie kodu

if opendialog.FileName '' then

lub po poprawce

if opendialog.Execute and (opendialog.FileName '') then //

wyskakuje mi bład MISSING OPERATOR OR SEMICOLON

no to dałem rózne od '' czyli <> i dalej nic

no to zrezygnowałem z indeksacji

lista1.Items.Add(ExtractFileName(opendialog.FileName[i])); czyli z [i]

bo pomyślałem, ze to wybiera znak o danym numerze z nazwy pliku i jest prawie OK ale wtedy za każdym razem w memo czy na liście wyswietla się x razy nazwa ostatniego kliknietego pliku

krótka piłka

jak zrobić listę wybranych plików w memo czy listbox za pomocą opendialog - czyli otwieram opendialog zaznaczam np 3 pliki i chce miec ich nazwy gdzies tam - niewazne gdzie

moje próby

if opendialog1.Execute and (opendialog1.FileName '') then
  begin
    for i:=0 to opendialog1.Files.Count-1 do
    begin
      listbox1.Items.Add(ExtractFileName(opendialog1.FileName[i]));
    end;

kod zjechany z forum nie działa tak w ogóle

if opendialog1.Execute and (opendialog1.FileName <> '') then //zmiana 1
  begin
    for i:=0 to opendialog1.Files.Count-1 do
    begin
      listbox1.Items.Add(ExtractFileName(opendialog1.FileName[i]));
    end;

tak działa ale wyświetlają się litery - jak mysle jest to i-ta litera nazwy pliku

if opendialog1.Execute and (opendialog1.FileName<> '') then//zmiana 1
  begin
    for i:=0 to opendialog1.Files.Count-1 do
    begin
      listbox1.Items.Add(ExtractFileName(opendialog1.FileName));//zmiana 2
    end;

wyświetlaja się OK tj tyle razy ile zaznaczeń itp ale ta sama nazwa - czyli ostatnia kliknięta w OPEN DIALOG

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 if opendialog1.Execute and (opendialog1.FileName<> '') then//zmiana 1
  begin
    for i:=0 to opendialog1.Files.Count-1 do
    begin
      listbox1.Items.Add(ExtractFileName(opendialog1.Files [i]));//zmiana 2
    end;end;end;

Dziękuję Bardzo za pomoc