IBQuery1 solo muestra 1 registro

[ascrnet]

hola

tengo un problema con el IBQuery1 solo me muestra el ultimo registro y tengo dos registro. eso estoy usando

     IBQuery1.Close;
     IBQuery1.SQL.CLEAR;
     IBQuery1.SQL.ADD('SELECT ID,NOMBRE FROM GAMES ORDER BY NOMBRE ASC');
     IBQuery1.open;
     IBQuery1.First;
     while  (not IBQuery1.Eof) do
     begin
        root := TreeView1.Items.AddChild(root,IBQuery1.Fields[1].Text);
        root.ImageIndex := 2 ;
        root.SelectedIndex := 2 ;
        Showmessage(IBQuery1.Fields[1].Text);
        Showmessage(IntToStr(IBQuery1.RecNo));
        IBQuery1.Next;
     end;

eso y tambien el recordcount dice 1

Pd. uso delphi 7 + firebird

saludos