Du ziehst den Topendialog auf dein Formular
und machst in den Buttonclick
Delphi-Quellcode:
If Opendialog1.execute then begin
..
end;
Wenn du das Flag setzt damit man nehrere Dateien öffnen kann must du
die von
Opendialog1.files[i] mit i = 0 bis Opendialog1.files.count -1 auslesen
sonst Opendialog1.filename