Código Delphi
[-]
query_procedimientos.Close;
query_procedimientos.SQL.Clear;
query_procedimientos.SQL.Text := STRSQL;
query_procedimientos.Parameters.ParamByName('fechadesde').Value := FormatDateTime('yyyy-mm-dd', Fechadesde.date);
query_procedimientos.Parameters.ParamByName('fechahasta').Value := FormatDateTime('yyyy-mm-dd', fechahasta.date);
query_procedimientos.Open;
Lo que no entiendo es que si estás usando parámetros y son de tipo fecha, fueerzas el formato a uno determinado.
Lo lógico sería enviar la fecha y que el driver lo formatee como sea necesario.
Código Delphi
[-]
...
query_procedimientos.Parameters.ParamByName('fechadesde').AsDateTime := Fechadesde.date;
query_procedimientos.Parameters.ParamByName('fechahasta').AsDateTime := fechahasta.date;
...