ie查字符串哪儿错了,正确的是什么?(100分)

代码如下: 错误提示如下:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, OleCtrls, SHDocVw;

type
TForm1 = class(TForm)
Button1: TButton;
WebBrowser1: TWebBrowser;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses MSHTML,ActiveX, comobj;
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
Doc: IHtmlDocument2;
Txt: IHTMLTxtRange;
begin
Doc := WebBrowser1.Document as IHTMLDocument2;
if Doc.QueryCommandEnabled('Copy') then
　　　Doc.ExecCommand('Copy',false,EmptyParam);
　　　　　
　　　　　　　　　
　　　//这句很重要，因为IHTMLTxtRange 的所有方法前提必须要有一个TextRange，不过放心，这句话执行的结果不会显示。
Txt :=Doc.selection.createRange as IHTMLTxtRange;
Txt.findText('新闻',0,0);
Txt.select;
end;

initialization
　　　OleInitialize(nil);
　　finalization
　　　try
　　　　OleUninitialize;
　　　except
　　　end;

end;


end.
====================
[Error] Unit1.pas(34): Illegal character in input file: '　' ($A1A1)
[Error] Unit1.pas(35): Illegal character in input file: '　' ($A1A1)
[Error] Unit1.pas(36): Illegal character in input file: '　' ($A1A1)
[Error] Unit1.pas(36): Illegal character in input file: '　' ($A1A1)
[Error] Unit1.pas(37): Illegal character in input file: '　' ($A1A1)
[Error] Unit1.pas(44): Illegal character in input file: '　' ($A1A1)
[Error] Unit1.pas(45): Illegal character in input file: '　' ($A1A1)
[Error] Unit1.pas(46): Illegal character in input file: '　' ($A1A1)
[Error] Unit1.pas(47): Illegal character in input file: '　' ($A1A1)
[Error] Unit1.pas(48): Illegal character in input file: '　' ($A1A1)
[Error] Unit1.pas(49): Illegal character in input file: '　' ($A1A1)
[Error] Unit1.pas(51): '.' expected but ';' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

有汉字空格。将每行前面的空格去掉。

你粘贴过来的代码中有汉字的空格，把它们删除。

不好意思，为了排版方便，我的文章里面用了全角空格。
以后注意。

楼上的两个ID？？

不好意思 影子回答后 我就改过了 所以都给他了 谢谢后面的几位哥哥