[Bars1992]

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
begin
if opendialog1.Execute then
 begin
  for i:=0 to opendialog1.files.count-1 do
   showmessage(opendialog1.files[i]);
 end;
end;