Ayuda con monthcalendar y sql server

[krewer]

Hola, gracias por el codigo, me ayudo mucho... ahora el drama es que me aparece el siguiente error:

Error 'Operand type clash: int is incompatible with date

Al menos yo creo que no he hecho nada malo, aqui dejo mi codigo

procedure Tfregistro1.fechaClick(Sender: TObject);
var sql:string;
var date:string;
begin

FormatDateTime('yyyy-mm-dd', fecha.Date);
sql:='select * from BITACORA where NICK='+quotedstr(Uvariables.nombre)+' and FECHA='+datetostr(fecha.Date)+'';
fdata.consulta5.Close;
fdata.consulta5.SQL.Clear;
fdata.consulta5.SQL.Add(sql);
fdata.consulta5.Open;
end;

Gracias