Problemas No Carregamento De Uma Combo

[gladiador]

/* Caros amigos estou utilizando o Firebird 1.5 com Delphi 7.0

Vejam o seguinte código :

{$R *.dfm}

Procedure TForm1.TComboBox1(Sender:TObject);
Var
 i:Integer;
Begin
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('Select Descricao_Da_Natureza From Natureza_Ocorrencia');
IBQuery1.Open;
ComboBox1.Items.Clear;

  For i:=1 to IBQuery1.RecordCount do Begin
    ComboBox1.Items.Add(IBQuery1.FieldByName('Descricao_Da_Natureza').AsString);
    IBQuery1.Next;
  end;
  ComboBox1.ItemIndex:=0;

end;

procedure TForm1.FormShow(Sender: TObject);
begin
  TComboBox1(Sender);
end;
end.

O que o código acima deveria fazer :

carregar várias opções no combo para que eu selecione uma e por sua vez preencha os dados restantes da tabela ; muito bem porém o que acontece ?

o combo carrega somente o primeiro registro isso quando feito utlizando firebird ,

porém se feito no paradox vem normal ou seja todos os registros para ser escolhido , onde estaria errado ?

PS se puder me dizer também quais os componentes da paleta que eu devo usar para trazer os resultados , ficaria grato pois acho que os componentes do firebird

são os mesmos do interbase então se puderem explanar quais paletas seria ótimo .

Obrigado e T+

*/

[s3c]

O problema deve estar no RecordCount.

Experimente colocar após IBQuery1.Open

IBquery1.Last;

IBquery1.First;

[gladiador]

/* Num funfo :-( */

[Corposemalma]

Veja se esse codigo funciona:

Depois do Open:

IBquery1.First;
while not Ibquery1.eof = true do
begin
ComboBox1.Items.Add(IBQuery1.FieldByName('Descricao_Da_Natureza').AsString);
   IBQuery1.Next;
end;