Problemas con Firebird y Date

[Paulao]

hizo la function abajo:

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 = ' + pData);
    try
      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;

Que pasa es que estoy con problemas en la llamada a la function, pues en Brasil las dates son: DD/MM/YYYYY y en FB son MM/DD/YYYY, pero que no eh logrado exito con la llamada, tipo:

Código Delphi [-]
ShowMessage(FloatToStr(PegaVendaPorCaixa('53',now)));