Ошибка кода.

[pusik]

procedure TForm3.FormCreate(Sender: TObject);
var i,j: integer;
begin
i:=1;
j:=DBGrid1.DataSource.DataSet.Recor dCount;
DataModule2.Specialnost.First;
DBGrid1.Columns[3].PickList.text:=DataModule2.Special nost.FieldByName('Код специальности').Value;
for i:=2 to j do
begin
DataModule2.Specialnost.Next;
DBGrid1.Columns[3].PickList.text:=form3.DBGrid1.Colum ns[3].PickList.text+ DataModule2.Specialnost.FieldByName ('Код специальности').Value;
end;
end;
end.

Этот код я использую, для создания выпадающего списка в таблице! В чем подвох!? Используюя этот код на разных формах в разных таблицах, у меня выводиться разный результат!Например: в одной таблице, вместо 8значение в выпадающий список попадает всего 2 значения.... или же попадают все значения, но последняя строка в этом списке повторяется 5-7раз))) если есть возможность, то предложите альтернтиву)