Fórum Consultar entre datas - c/ data vazia #278710

Olá a todos amigos Delphianos.
Uso Delphi 6 com Paradox. Na entrada de dados ( Cadastro ) uso DBEdit. No DataModule defini o MaskEdit do Campo Data como !99/99/0000;1;_ .
Estou com problemas para montar uma SQL envolvendo campo data quando está em branco (vazia). Fiz diversas pesquisas no Fórum mas um problema ainda existe.
Preciso listar pedidos não entregues ( data inicial esta vazia ) ou pedidos entregues em determinado período ( data inicial pode ou não estar preenchida e data final preenchida ).
Na tela do programa que seleciono os período faço:

Nro. Pedido: Ped_Ini a Ped_Fim // intervalo de nro. de pedidos
Dt. Entregua: EntIni a EntFim // intervalo de datas - MaskEdit

Abaixo está o código que estou usando para listar os pedidos desejados, mas quando data inicial está vazia ele não encherga.
Muito obrigado a todos
Neto

With Query1 do
Begin
Sql.Clear;
Active := False;
Close;
Sql.Clear;
Sql.Add(´SELECT * FROM CadPed A´);
Sql.Add(´WHERE A.Ped_Cod >= :CodIni and A.Ped_Cod <= :CodFim´);

// Data de Entrega
If EdtEntIni.Text = ´ / / ´ then // Data de Entrega
Begin
Sql.Add(´And A.Ped_DtEntrega <= :EntFim´);
End
else
Sql.Add(´And A.Ped_DtEntrega BetWeen :EntIni And :EntFim´);

// Passagem de parametros
ParamByName(´CodIni´).AsString := FrR0220.EdtCodIni.Text;
ParamByName(´CodFim´).AsString := FrR0220.EdtCodFim.Text;

If EdtEntIni.Text = ´ / / ´ then // Data de entrega prevista
Begin
ParamByName(´EntFim´).Value := StrToDate(EdtEntFim.Text);
end
else
Begin
ParamByName(´EntIni´).Value := StrToDate(EdtEntIni.Text);
ParamByName(´EntFim´).Value := StrToDate(EdtEntFim.Text);
end;

Active := True;
Open;
End;