[magnu9]

Solo me falta lo que son las fechas... ahhh y trato de buscarlos por sus balance pero me devuelve el error de "imposible conversion de tipo varchar a numerico"

Código Delphi [-]
procedure TrpCliente.btnAceptarClick(Sender: TObject);
//var orden: string;
 var m: integer;
begin
 m:= ListBox2.Items.Count;
  try
   FreportCliente:=TFreportCliente.Create(self);
      if Ordenar.ItemIndex = 0 then begin
         FreportCliente.qryCliente.SQL.Add(' Select  codcli,nomcli,apelcli, dircli, telcli,cedcli, fecha, estado, codzon, facturacredito, balcli, direc_envio From cliente ');
         FreportCliente.qryCliente.SQL.Add(' WHERE cliente.codcli >='''+(edCodigo1.Text)+''' AND cliente.codcli <= '''+(edCodigo2.Text)+'''');
       FreportCliente.qryCliente.SQL.Add('or (cliente.nomcli >='''+edNombre1.text+'%'' AND cliente.nomcli <= '''+edNombre2.text+'%'')');
      // FreportCliente.qryCliente.SQL.Add('or (cliente.balcli >='''+(edBalance1.Text)+'%'' AND cliente.balcli <='''+edBalance2.Text+'%'')');
 
         IF m=0 THEN
         FreportCliente.qryCliente.SQL.Add(' ORDER BY CODCLI DESC');
         IF m=1 THEN
         FreportCliente.qryCliente.SQL.Add(' ORDER BY '+ListBox2.Items[0]+'');
         IF m=2 THEN
         FreportCliente.qryCliente.SQL.Add(' ORDER BY '+ListBox2.Items[0]+','+ListBox2.Items[1]+'');
         IF m=3 THEN
         FreportCliente.qryCliente.SQL.Add(' ORDER BY '+ListBox2.Items[0]+','+ListBox2.Items[1]+','+ListBox2.Items[2]+'');
         IF m=4 THEN
         FreportCliente.qryCliente.SQL.Add(' ORDER BY '+ListBox2.Items[0]+','+ListBox2.Items[1]+','+ListBox2.Items[2]+','+ListBox2.Items[3]+'');
      end