function SQLParamsToSQL(Q:TQuery):string;
var LogSQL, nam,val:string;
   i:integer;
   function ch_point(v:string):string;
   begin
     if pos(',',v)>0 then v[pos(',',v)]:='.';
     result:=v;
   end;

   function ch_date(v:string):string;
   begin
     if v='0:00:00' then result:='null'
     else result:=''''+v+'''';
   end;

begin

     with Q do
     begin
     LogSQL:=SQL.Text;
          for i := 0 to ParamCount-1 do
          begin
          nam:=':'+VarToStr(Params[i].name);
          val:=VarToStr(Params[i].Value);

          if val='' then val:='null' else
          case Params[I].DataType of
            ftString: val:=''''+val+'''';
            ftInteger: val:=val;
            ftFloat:  val:=ch_point(val);
            ftCurrency: val:=ch_point(val);
            ftDate: val:=ch_date(val);
            ftTime: val:=ch_date(val);
            ftDateTime:val:=ch_date(val);
            else
            val:=val;
          end;

          LogSQL := stringreplace(LogSQL, nam, val,[rfIgnoreCase]);
          end;
     end;
     result:=LogSQL;
end;