PRoblemas con Between

[elturu15]

Hola otra vez..lamento informarte que sigue sin funcionar.. me lista siempre el primero,,, este es el codigo que tengo

Código Delphi [-]
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='SELECT P.Clave, P.Nombre, C.Codigo_Postal,  C.Nombre_Ciudad '+
                     'FROM Provincias P LEFT JOIN Ciudades C ON P.Clave = C.Clave_Provincia '+
                     'WHERE P.clave between '+IntToStr(clave)+' and '+IntToStr(clave1)+' order by Clave';
ADOQuery1.Open;
ListBox1.Clear;
AdoQuery1.First; // nos posicionamos en el primer registro
ADOQuery1.Active:=true;
    While not ADOQuery1.EOF do
     Begin
      Clave2:=ADOQuery1.Fields[0].AsInteger;
      Nombre:=ADOQuery1.Fields[1].AsString;
      CP:=ADOQuery1.Fields[2].AsString;
      NombreCiudad:=ADOQuery1.Fields[3].AsString;
      ListBox1.Items.Add('Clave :' +  inttostr(Clave2));
      ListBox1.Items.Add('Nombre :' + Nombre);
      ListBox1.Items.Add('codigo_postal : '+  CP);
      ListBox1.Items.Add('Nombre_Ciudad :' + NombreCiudad);
      ListBox1.Items.Add('----------------------------');
      ADOQuery1.Next;
     End

esta bien esto? ADOQuery1.Active:=true;


Mil disculpas por molestarte