Pequeña ayuda con Datetostr!!!

[negrokau]

Hola amigos... tengo un inconveniente al actualizar una tabla, esto programe en un boton al que llame GUARDAR...

procedure TF_LECTURA.GUARDARClick(Sender: TObject);
VAR
CLIENTE : INTEGER;
FECHA: TDATE;
begin
IF Application.MessageBox('Desea GUARDAR?','GUARDAR',MB_YESNO + MB_Ite)CONQUESTION) = ID_YES then
BEGIN
//////////////////////////////////////////////////////////////////
//////////////////Actualiza Nº DE BOLETA/////////////////////
//////////////////////////////////////////////////////////////////
CLIENTE:=dm.Q_LECTURA.FieldValues['COD_CLIENTE'];// CODIGO DE CLIENTE
FECHA:=dm.Q_LECTURA.FieldValues['F_ACTUAL'];// ULTIMA FECHA

DM.CONSULTA.CLOSE;
DM.CONSULTA.SQL.Clear;
DM.CONSULTA.SQL.Add('UPDATE CLIENTES SET ULT_FECHA='+DATETOSTR(FECHA)+' WHERE COD_CLIENTE='+inttostr(CLIENTE));
DM.CONSULTA.ExecSQL;

Al hacer click me salta este mensaje

conversion error from string "0"

-el campo ULT_FECHA es tipo date

me prodrian decir donde estoy haciendo mal, desde ya muchas gracias.....

[marcoszorrilla]

Prueba:
FECHA:=dm.Q_LECTURAF_ACTUAL.AsDate;// ULTIMA FECHA
Un Saludo.

[marcoszorrilla]

En cuanto al SQL Update, yo siempre utilizo parámetros.
DM.CONSULTA.SQL.Add('UPDATE CLIENTES SET ULT_FECHA= :F1 WHERE COD_CLIENTE='+inttostr(CLIENTE));
Dm.Consulta.ParamByName('F1').AsDate:=Fecha;
Dm.Consulta.ExecSql;
Un Saludo.

[negrokau]

gracias... probe con parametros y me funciono a la perfeccion....