Insertar cadena de carácteres

[carmelina]

Hola de nuevo;

El error que me da es el siguiente:

Project Project1.exe raised exception class EOleException with message 'Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros'. Proceso stopped. Use Step or Run to Continue.

y tambien me aparece:

Project Project1.exe raised exception class EOleException with message
'Objeto Parameter mal definido. Se proporcionó información incompleta o incoherente'. Proceso stopped. Use Step or Run to Continue.

El código utilizado es este:

fecha:=GetLocalT;
Query1.SQL.Add('INSERT INTO misvideos VALUES (:fecha, :nombrevideo, :ruta)');
Query1.Parameters.ParamByName('fecha').value:=StrToDate(fecha);
Query1.Parameters.ParamByName('nombrevideo').value:=nombrevideo;
Query1.Parameters.ParamByName('ruta').value:='c:video';
Query1.ExecSQL;

donde la funcion GetLocalT tiene como código:

function GetLocalT: String;
 var
    stSystemDate : TSystemTime;
 begin
    Windows.GetLocalTime( stSystemDate );
    Result := DateToStr( SystemTimeToDateTime( stSystemDate ) );
 end;

Bueno, si podeis ayudarme sería genial, y si no gracias igualmente:-)