Delphi - validar datos guardados

Buenos dias
Necesito de su ayuda estoy desarrollando una aplicacion simple.. y este es el tema en el formulario donde tengo el login para el sistema utulizo el siguiente codigo para comprobar si el usuario exite en la base de datos y de el paso o no
DOquery1.Open;
if ADOquery1.locate ('Usuario;Clave',VarArrayOf([edit1.text,edit2.text]),[]) then
begin
form2.showmodal;
form1.Close;
else
mensaje de error

AQUI TODO PERFECTO.... cuando utilizo el mismo codigo para comprobar si el campo codigo de usuario y la fecha exiten en una base de datos

if ADOquery1.locate ('Codigo;F_Almuerzo',VarArrayOf([edit1.text,quotedstr(formatdatetime('yyyymmdd', now)]),[]) then
Mensaje de Error '' ESTE USUARIO NO PUEDE ALMARZAR DOS VECES EL MISMO DIA''
ELSE
codigo

NO ME FUNCIONA ,, NO ME DA ERROR PERO NO HACE LO QUE NECESITO....
EL FIN ES EVITAR QUE EL MISMO USUARIO OPTENGA EL TICKET DE ALMUERZO EL MISMO DIA DOS VECES...... AGRADEZCO SU AYUDA