delphi 如何判断字符串有几个空格或-，有几个指定的字符个数

var
  StrLst: TStringList;
begin
  StrLst:= TStringList.Create;
  try
    //有多少个2
   StrLst.Delimiter:= '-';
   StrLst.DelimitedText:= 'AB间-AB区间2层小楼';
   Edit1.Text:=IntToStr(StrLst.Count - 1);//个数
  finally
    StrLst.Free;
  end;
end;