我快疯了，快救救我吧(0分)

下面是一个例子代码，运行时产生错误：
[Error] Project1.dpr(11): Illegal character in input file: '　' ($A1A1)
为什么？

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
type
TDate=class
public
Month,Day,Year:Integer;
　　 procedure SetValue(m,d,y:Integer)
//系统说这行出错，下面还有好几行有类似错误，错误现象见上面
　　 function LeapYear:Boolean;
end;

procedure TDate.SetValue(m,d,y:Integer);
begin
Year:=y;
Month:=m;
Day:=d;
end;

function Tdate.LeapYear:Boolean;
begin
if (Year mod 4 <> 0) then
　　　　LeapYear := False
　　　else if (Year mod 100 <> 0)
　　　　LeapYear := True
　　　else if (Year mod 400 <> 0)
　　　　LeapYear := False
　　　else
　　　　LeapYear := True;
end;

var ADay:TDate;
begin
{ TODO -oUser -cConsole Main : Insert code here }
ADay:=TDate.Create;
ADay.SetValue(5,20,2002);
If ADay.LeapYear Then
Writeln('It is a LeapYear')
Else
Writeln('It is not LeapYear');

ADay.Destroy;
ReadLn;
end.

那个提示是说你的源程序中有全角的空格，把它们去掉即可

但那一行确实没有全角空格啊（也确定整个源码中也没有全角空格）

而且在IDE环境中写源代码时，键盘上的很多键有叶都会失效（如DEL，箭头等），只有回车键有用，这是什么原因？

Sorry，仔细检查了好几遍，发现源码中确实存在全角空格，非常感谢xiao_min

你的程序是从网页上拷贝下来的.吧.^_^