計算字段怎麼用?????急盼回復,項目的最後一個障碍,問了2天了.

procedure TFormMain.Query3CaclField(...);
begin
  timeon:=dm.query1.FieldByName ('chk_onduty').asstring;
      timeon:= formatdatetime('hh:mm',strtodatetime(chkon));      dataon:= dm.query1.FieldByName ('chk_day').asstring;
      dataon:=timeon+' '+'07:40' ;
      dataon:=formatdatetime('hh:mm',strtodatetime(timeon));
  if StrtoDateTime(timeon)>StrToDateTime(Dataon) then
    Query3.FieldbyName('chkon').AsString:='迟到'
  else
    Query3.FieldbyName('chkon').AsString:='正常';
end;