kontrollere en streng for om der skulle være for mange backslash

hej experter

jeg har lave denne lille function:
function ChangeFilePath(const FileName, NewPath: String): String;
begin
    Result := NewPath + '\' + ExtractFileName(FileName);
end;

den ændre stien i et filnavn. men den har et lille problem, fordi hvis brugeren vælger et hoveddrev, fx c:\, vil den putte et \ for meget på dvs i stede for c:\123.test vil det blive til c:\\s123.test

men, hvis brugeren har valgt et mappe fx c:\test, så bliver filnavnet rigtigt.
hvordan kan jeg så kontrollere en streng for om det skal have tilføjet det backslash?

/FunteX! :-)