OpenDialog öffnen

[PierreB]

Andere Möglichkeit:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
with OpenDialog1 do begin
Execute;
Caption := OpenDialog1.FileName;
end
end;