Как из переменной типа String удалить пару слов

[zotox]

Есть запись в переменную String надо чтобы там первые слова убрались (знаю какие слова)(убрались до первой "/" то есть было к примеру "C:/programma/unistall.exe" а надо чтобы стало "C:/programma/")

[evg_m]

pos Delete

[zotox]

evg_m не понял! Поподробней!

[Mitriy08]

var
  i : Integer;
  FileName,s,FPath : String;
begin
    FileName := 'C:/programma/unistall.exe';
    I := Length(FileName);
    if i <> 0 then
    begin
        while (FileName[i] <> '/') and (i > 0) do  i := i - 1;

        S := Copy( FileName , i + 1 , Length(FileName) - i );
        i := Length(S);
        FPath := Copy( FileName , 0 , Length(FileName) - i );
    end;

    Label1.Caption := Fpath;