请问这是什么原因？

Question

procedure TFrmMain.ADOQuery1AfterOpen(DataSet: TDataSet);
begin
if adoquery1.RecordCount <>0 then
begin
toolbutton3.Enabled:=true;
toolbutton4.Enabled:=true;
toolbutton5.Enabled:=true;
toolbutton6.Enabled:=true;
end;单步调试出现一下信息，请问是什么原因？
  variable 'self' inaccessable here due to optimization

Answer 1

procedure TFrmMain.ADOQuery1AfterOpen(DataSet: TDataSet);//这里错了
begin
if DataSet.RecordCount <>0 then //这里错了
begin
toolbutton3.Enabled:=true;
toolbutton4.Enabled:=true;
toolbutton5.Enabled:=true;
toolbutton6.Enabled:=true;
end;

Answer 2

就是 SmallHand(火龍) 指出的错误