Name einer einer Datei herausfinden...

[Sharky]

Geht bei mir ohne Probleme:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 sFileName  : String;
begin
 if (OpenDialog1.Execute) then
  begin
   sFileName := OpenDialog1.FileName;
   Label1.Caption := ExtractFileName(sFileName);
  end;
end;