'Invalid use of keyword. TOken:?

[Petolansa]

Buenas gente mediante el sgte. codigo estoy tratando de comprobar si existe una guardia realizado por una persona.
Una persona puede tener muchas guardias. es una tabla maestro detalle que carga bien los datos, pero antes de cargar que no se cargue la misma guardia.
La idea es que si esa gardia esta cargada lo haga saber y si no la guarde.

Trabajo en access y la tabla guardias tiene dos campos.

PERSONAL
PDNI*
PAPELLIDO
PNOMBRE
PCODESCUELA
...
..

GUARDIAS
GDNI*
GFECHAGUARDIA

Código Delphi [-]
procedure TForm12.BitBtn2Click(Sender: TObject);
 begin
  FECHAGUARDIA:=datetimepicker1.date;
  query2.close;
  query2.sql.text := 'select * from GUARDIAS where GDNI:=DNIGUARDIA and GFECHAGUARDIA:=FECHAGUARDIA';
  query2.Params[0].AsInteger := strtoint(dbtext7.Caption);
  query2.Params[1].AsDate:= fechaguardia;
  query2.open;
  if query2.recordcount>0 then
  begin
   Showmessage('La guardia ya se ha cargado')
  end
 else
 begin
  table2.Insert;
  table2.FieldByName('GDNI').Value:=strtoint(dbtext7.Caption);
  table2.FieldByName('GFECHAGUARDIA').AsDateTime:=trunc(datetimepicker1.Date);
  table2.Post;
  ShowMessage('La carga se realizo con exito');
  query1.ExecSQL;
 end;
close;

El error que me salta es el siguiente. Busque en los foros pero el error entendi que puede ser por varias causas y no pude descubrir.

project project1.exe raised exception class EDBEngineerror with message 'Invalid use of keyword.
TOken:?
Line Number 1'Procces stopped. Use Step or Run to continue

SI alguien me puede dar una mano.
SAludos Gente