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

function GetPreviousDirectory(const APath: String): String;
var
  i: Integer;
begin
  Result:=APath;
  i:=Length(APath);
  If i>3 Then
  Begin
    Repeat
      Dec(i);
    Until (APath[i] = '\') OR (i=1);
    If APath[i]='\' Then
      Result:=Copy(APath,1,i);
  End;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:='C:\WINDOWS\Notepad.exe';
edit2.Text:=GetPreviousDirectory(edit1.text);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

// übergeordnetes verzeichnis
  pf:=edit1.Text; // script-pfad, zb - d:\teste1\test2\hallo.bat
  wpf:=edit2.text;  //sourc-name, zb - d:\test1\var.bat
  npf:=pf;   // neuer scipt-pfad

// suche bis gefunden
if fileexists(npf + '\'+wpf) then
begin
showmessage('gefunden1: ' + npf + wpf );
label5.Caption:=npf+wpf;
exit;
end else
begin
npf:=ExtractFileDir(npf);
end;