Usunięcie do wybranego znaku

Witam:)
chciałem się dowiedzieć jak można usunąć jakiś ciąg znaków do pewnego znaku
np.
54587545/54254
i chce usunąć wszystko do znaku "/".
czy powie mi ktos jak to mam zrobić?

// Edit juz sobie poradziłem miałem mały błąd:)

var
  s:string; //w tej zmiennej jest napis
begin
  Delete(s,1,Pos("/",s));  //usuwa wszystko do / włącznie z nim
  Delete(s,1,Pos("/",s)-1);//usuwa wszystko do /, ale / zostawia
end;