[Noooob]

Помогите пожалуйста. Как мне удалить символы после последнего \. Если так:

Код:

S := Edit1.Text;
 P := Pos('\', S);
 Edit1.Text := Copy(S, 0, P);

то удаляет все после первого.