Hvorfor virker det her ikke?

Hej..

Hvorfor virker denne kode ikke?

procedure TForm2.FormShow(Sender: TObject);
var
i: integer;
begin
form1.Enabled := false;

Table.SQL.Add('SELECT * FROM VareNr');
Table.Active := true;

For i := 0 to Table.IndexFieldCount do
begin
    VareTekst.Items.Add(Table.FieldByName('VareTekst').AsString);
    Table.Next;
end;
end;

Der er to ting i databasen og jeg kan fint se dem i en DBGrid men ikke få det lagt ing i min dropdown boks.. Hvordan kan det være?