看看这道题怎么做，有些拿不准

[Delphi2C]

这道考试题大家帮忙给看看，先谢过了，试题如下：
回文字符串，如：aLEVELa
非回文字符串，如：aLEVELb
下面函数判断一个字符串是否是回文字符串，若是返回0，不是返回-1
function IS(const Word:String):Boolean;
var Pi,Pj:PChar;
begin
Pi:=PChar(Word);
Pi:=Pi+Length(Word)-1;
While (Pi<Pj) and (____________) do
begin
Inc(Pi);
Dec(Pj);
end;
Result:=___________;
end;

[僵哥]

function IS(const Word:String):Boolean;
var Pi,Pj:PChar;
begin
Pi:=PChar(Word);
Pi:=Pi+Length(Word)-1;
While (Pi<Pj) and (Pi^=Pj^) do
begin
Inc(Pi);
Dec(Pj);
end;
Result:=Pi^=Pj^;
end;

[Delphi2C]

多谢unsigned(僵哥)

题目写错了
Pi:=Pi+Length(Word)-1;
应该是
Pj:=Pi+Length(Word)-1;