Delphi中有什么函数能把字符串中所有的空格去掉？

比如：
    var
      strTemp:String;
    begin
      strTemp:='5100A  A b cD   ';
    end;
strTemp中含有多个空格，用TRIM只能去掉开头和结尾的空格，而中间的空格去不掉，用循环太慢，最好用一个函数，哪位还有其他办法，帮帮忙，谢谢啦！