Получить позицию последнего вхождения подстроки в строку

Оформил: DeeCo

 { 
  Letzte Position von SubStr in S ermitteln. 
  Returns the last occurence of SubStr in S. 
}

 function LastPos(SubStr, S: string): Integer;
 var
   Found, Len, Pos: integer;
 begin
   Pos := Length(S);
   Len := Length(SubStr);
   Found := 0;
   while (Pos > 0) and (Found = 0) do
   begin
     if Copy(S, Pos, Len) = SubStr then
       Found := Pos;
     Dec(Pos);
   end;
   LastPos := Found;
 end;