[Paulao]

Hizo o FormateDate y puzo asi em mi llamada:

Código Delphi [-]
ShowMessage(FloatToStr(PegaVendaPorCaixa('53',StrToDate('13/01/2010'))));

El error es: Modify Request. Error Conversion from String y viene unos numeros.
Mi funcion estas asi:

Código Delphi [-]
function PegaVendaPorCaixa(pComputador: String;
  pData: TDateTime): Double;
var
  sql: String;
  lQuery      : tQualquerQuery ;
begin
  lQuery := tQualquerQuery.Create( objDataBaseMidle ) ;
  with lQuery do
  begin
    sql.add('select sum(n_vlr_total_ped)total from tbl_pedido ');
    sql.add('where id_computador = ' + pComputador);
    sql.add(' and d_ent_ped = ' + FormatDateTime('mm/dd/yyyy', pData));
    try
      sql.savetofile('c:\lixo\tt.txt');
      open;
      if RecordCount > 0 then
        Result := lQuery.FieldValues['total'];
    except
      on e: exception do
      begin
        MessageDlg( e.Message, mtError, [ mbOk ], 0 ) ;
      end ;
    end;
end;
end;