Delphi - Validar Datos

Buenos dias
Tengo el siguiente problema.. estoy grabando varios campos en una tabla (MS-SQL SERVER), pero quiero evitar que un registro se repita dos veces el mismo dia.... es decir cuando el empleado almuerze el lunes y vuelva a intentarlo ese mismo dia el sistema no lo permita pero el martes lo deje almorzar... he estado tratando de evitar esa duplicidad con un query diciendo

adoquery.sql.clear
adoquery.sql.add ('Select * from Empleados1 where Fecha (Este campo es de tipo fecha)='+ edit4.txt (Tipo String ))
adoquery.open

if adoquery.IsEmpty then
begin
mostrar mensaje y evitar que se grabe el registro
end
else
grabar datos

el problema es que no encuentro la forma de convertir el campo fecha en strin y me da un error...
ya anterior mentente use la funcion del sistema (Date), para mostrar la fecha en eledit y grabarla en la tabla usando este codigo para mostrar la fecha (edit4.Text:=datetostr(date);)

Aqui intervienen varios factores. Te explico, cada manejador de base de datos (SQLServer, MySql, Firebird, Interbase....) guarda a su manera las fechas, además está tambien la configuración regional de tu computadora, por lo tanto la funcion datetostr pudiera arrojarte distintos resultados, intenta lo siguiente
Tambien hay un fallo en tu inserción, las fechas debe ir entre comillas, puedes usar la funcion quotedstr() para eso