Количество вхождений подстроки в строке

//********************** ОПИСАНИЕ ******************************
//Функция возвращает количество подстроки в строке,
//Str – строка, в которой ищется символ
//SubStr – искомая подстрока
//**************************************************************

function GetAMountSubString(Str, SubStr: string): Integer;
begin
Result := 0;
//Продолжаем цикл до тех пор, пока встречается подстрока в строке
while Pos(SubStr, Str) > 0 do
begin
//Стираем подстроку в искомой строке
Delete(Str, Pos(SubStr, Str), Length(SubStr));
Result := Result + 1;
end;
end;