编译时出现异常Left side cannot be assigned to

编译时出现错误Left side cannot be assigned to 在线等
软件是从网上下载的
这是下载地址http://dl8.winu.cn/control/2003100921363623735.rar
编译时出现
[错误] HexEditor.pas(1727): Left side cannot be assigned to
[错误] HexEditor.pas(1758): Left side cannot be assigned to
[致命错误] sample1.pas(7): Could not compile used unit 'HexEditor.pas'
var
  pTP : TLongPoint;

const
  pCan: Boolean = True;
  pClicked : Boolean = False;
begin
  Result := Inherited SelectCell ( aCol , aRow );

  if (Result and fVariableLineLength and OutOfBounds ( aCol , aRow ))
  then
  Result := False;

  if not pCan
  then
  Exit;
  try
  pCan := false;//出现错误
  if Result
  then begin
  // 黚erpr黤en, ob linke maustaste oder shift gedr點kt, sonst selection zur點ksetzen
  if not (IsKeyDown ( VK_SHIFT) or IsKeyDown ( VK_LBUTTON) )
  then
  ResetSelection ( True );

  // 黚erpr黤en, ob au遝rhalb der DateiGr鲞e
  if GetPosAtCursor ( aCol , aRow ) >= DataSize
  then begin
  GetPosAtCursor ( Col , Row );
  pTP := GetCursorAtPos ( DataSize - 1 , fPosInChars );
  MoveColRow ( pTP.x , pTP.y , True , True );
  Result := False;
  end
  else
  if aCol = (2 + fBPL2 )
  then begin
  Result := False;
  if IsKeyDown ( VK_LBUTTON )
  then begin
  aCol := aCol -1;
  aCol := Max ( 2 , aCol );
  MoveColRow ( aCol , aRow , True , True );
  Exit;
  end;
  end;

  end;
  finally
  pCan := True;//出现错误
  end;

end;


[解决办法]
var
pCan:boolean;
...

begin
pCan:=true;