procedure TForm1.Button4Click(Sender: TObject);
var aaaa:string;beginaaaa:=DBGRIDEH1.getfootervalue(0,DBGRIDEH1.columns[5])
label1.Caption:='aaaa'
end;end.我这样,他显示[Error] Unit1.pas(107): Missing operator or semicolon求各位帮帮忙