Yo nunca utilizo ".value" porque suele fallar, en tu caso lo haría así:
Código Delphi
[-]Query1.ParamByName('fecha').asDateTime:=fecha;
Query1.ParamByName('nombrevideo').asString:=nombrevideo;
Query1.ParamByName('ruta').asString:='c:video';
Query1.ExecSQL;