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

function simpSlashes (S:STRING):STRING;
var R:STRING;
var iIdx:INTEGER;
begin
  R:=S;
  repeat
    iIdx:=POS('\\',R);
    IF iIdx > 0 THEN
      DELETE(R,iIdx,1);
  until (iIdx = 0);
  Result:=R;
end;                    

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

var
  s : String;
begin
  s := Pfath;
  if (s[length] = '\') and (s[length-1] = '\') then
    delete(s, length, 1);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var 
  s : String; 
  aLen:Integer;

  ...
  s := Pfath; 
  aLen:=Length(s);
  if (s[aLen] = '\') and (s[aLen-1] = '\') then 
    System.Delete(s, aLen, 1); 
  ...                    

1:

S:=StringReplace(S,'\\','\',[rfReplaceAll,rfIgnoreCase]);