1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

{-----------------------------------------------------------------------------
  Procedure : CutFilename
  Author    : Assarbad
  Date      : 2003-02-08
  Purpose   : Returns the path without the filename
  Arguments : s: string
  Result    : string
-----------------------------------------------------------------------------}
function CutFilename(s: string): string;
var
  i: integer;
begin
  result := s;
  for i := length(s) downto 1 do
    // Von hinten den Backslash suchen. Wenn gefunden alles bis inkl. Backslash kopieren
    if s[i] = '\' then
      begin
        result := copy(s, 1, i);
        // Nach dem ersten Backslash beenden
        break;
      end;
end;                    

1:
2:
3:
4:
5:
6:

procedure TForm1.Button1Click(Sender: TObject);
begin
  opendialog1.execute;
  label1.Caption:=ExtractFilePath(opendialog1.filename); //Pfad anzeigen
  label2.Caption:=ExtractFileName(opendialog1.filename); //Dateinamen anzeigen
end;                    

1:

C:Testdatei.txt