不能直接识别窗题中对象。什么奇怪的问题都被我遇到了~~~~~~~~~~

procedure DrawTable;
var
  i:Integer;
Begin
  Canvas:=TCanvas.Create();
  Canvas.Brush.Color:=clWhite;
  Getbooktimelist;
  for i:=1 to timelist.Count do
  begin
    DrawRec(Form4.Button1.Left,Form4.Button1.top+i*Height,Form4.Button1.Width,Height);*******
  end;
end;
******这行，我如果DrawRec(Button1.Left,Button1.top+i*Height,Button1.Width,Height);就会出现没有定义
Button1的错误提示。这是什么原因啊？