FormatDateTime('YYYY/MM/DD', fecha.Date);
sql:='select NICK,HORA,MENSAJE,ESTADO from BITACORA where nick='+quotedstr(date)+' and FECHA=:fecha order by hora desc';
fdata.consulta5.Close;
fdata.consulta5.SQL.Clear;
fdata.consulta5.SQL.Add(sql);
fdata.consulta5.ParamByName('fecha').AsDate:=fecha.Date;
fdata.consulta5.Open;