[Kaka]

Я в своём Бэкоре писал следдующее:
repeat
if copy(s,i,1) <> '\' then
begin
delete(s,i,1);
i := i-1;
end;
until
copy(s,i,1) = '\';

Но можно и проще(pos...)