1:

http://www.test.de/test1/test2/index.html                    

1:

http://www.test.de/test1/test2/                    

1:

Copy(URL,1,pos('/',URL))                    

1:

Copy(URL,1,pos('/',URL))                    

1:

http:/                    

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

procedure TForm1.Button1Click(Sender: TObject);
var
  posi: integer;
  str1, str2: string;
begin
  str1 := 'http://www.test.de/test1/test2/index.html';
  str2 := '';
  repeat
    posi := AnsiPos('/', str1);
    str2 := str2 + copy(str1, 1, posi);
    delete(str1, 1, posi);
  until posi = 0;
  ShowMessage(str2);
end;                    

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

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 i:=length(edit1.text);
 while (i>0)and(edit1.text[i]<>'/') do dec(i);
 if i>0 then edit2.text:=copy(edit1.text,1,i);
end;                    

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

function ExtractURLFilePath(const FileName: string): string;
var
  I: Integer;
begin
  I := LastDelimiter(PathDelim + DriveDelim+'/', FileName);
  Result := Copy(FileName, 1, I);
end;