Eine Pfadangabe "säubern"?

[Glados]

Ich stelle mir gerade die Frage wie man am besten eine unsaubere Pfadangabe säubert.
Wie bekomme ich etwas Dreckiges wie C:\\123/45\67. sauber sodass ich C:\123\45\67 erhalte?
Aktuell mache ich das so aber das ist sicher nicht so dolle oder?

Delphi-Quellcode:

begin
 if Trim(aDir) = '' then
  begin
   Result := '';
   Exit;
  end;

  // Wenn aDir eine Dateiangabe ist warum auch immer, dann ...
  // aDir := ExtractFileDir(aDir);

 aDir := StringReplace(aDir, '/', '\', [rfReplaceAll]);

 while (AnsiEndsStr('\', aDir)) or AnsiEndsStr('.', aDir) do
  aDir := Copy(aDir, 1, Length(aDir) - 1);

 while Pos('\\', aDir) > 0 do
  aDir := StringReplace(aDir, '\\', '\', [rfReplaceAll]);

 while Pos('\ ', aDir) > 0 do
  aDir := StringReplace(aDir, '\ ', '\', [rfReplaceAll]);

 Result := Trim(aDir);
end;

Ich bin ein totaler Spagetti-Coder und möchte natürlich Neues lernen!