刚刚在网上看到的一段程序，运行以下出现了这个错误，请指教

Question

procedure TForm1.FormCreate(Sender: TObject);
var
　str:HRgn;
begin
　form1.font.Color:=clred;
　beginpath(canvas.Handle);
　setbkmode(canvas.Handle,TRANSPARENT);
　canvas.Font.Name:='宋体';
　canvas.Font.Size:=100;
　canvas.Textout(15,15,'电脑报');
　endpath(canvas.handle);
　str:=pathtoregion(canvas.handle);
　setwindowrgn(handle,str,true);
end;
报错：lllegal character in input file:'  '($A1A1)
下面还有一大串同样的错误，这是什么错误啊，看不懂，请指教！

Answer 1

肯定是有全角字符，你检查一下，把全角字符删除就可以了。

Answer 2

怎么该呢？我是从网上复制过来的

Answer 3

你把所有有空格，换行的地方都删除（包括程序最后），重新打半角空格和换行就可以了。

Answer 4

全角的空格,网上很多会把半角空格转为全角空格

Answer 5

肯定是有全角字符，你检查一下，把全角字符删除就可以了。