Obcinanie stringa aż do znaku '"/" [DELPHI]

Jak obciąć stringa aż do napotkania znaku "/". Wiem jak obcinać o kilka znaków ale jak to zrobić kiedy chce by np.
to:
D:\Gry\LFS\LFS.exe
zmieniło się w to:
D:\Gry\LFS\

pomożecie ?

Czyli do ostatniego "" tak? Wystarczy w pętli zapamiętywać ostatnie pozycję backslasha i przy wyjściu z pętli obciąć do takiej pozycji stringa.

do tego konkretnego problemu:

ExtractFilePath('D:\Gry\LFS\LFS.exe')

Lub ręcznie:

function ExtractFilePath(FileName: String): String;
var
  I: Word;
begin
  Result := '';

  for I := Length(FileName) downto 1 do
    if FileName[I] = '\' then
      begin
        Result := Copy(FileName, 1, I);
        Exit;
      end;
end;

lub tak (jak napisał @kAzek);

function ExtractFilePath(FileName: String): String;
begin
  Result := Copy(FileName, 1, LastDelimiter('\', FileName));
end;