去除字符串中的空格问题？

procedure TForm1.Button1Click(Sender: TObject);
var
  str1,str2:string;
begin
   str1:=edit1.Text;
   str2:=StringReplace ( str1, ' ', '', [rfReplaceAll] );
   label1.Caption:=str2;
end;
去除键盘输入的字符串中间的空格可以，从网页上复制的文本字符串中间的空格不行，为什么？谢谢！

但是用键盘修改后增加的空格可以，原本的和后来空格有什么不同？可是其它网页可以，就这个不行。

运　　费：
这个就不行。

网页编码问题。有些网页上的空格复制到Delphi里就不是空格了，我试过复制网上一段代码到Delphi里，每行前面的“空格”都变成了非法字符，但用键盘修修改为空格后又可以正常运行了。

变成了&nbsp,,网页里

可以对&nbsp字符进行删除处理。