Есть процедурка писанная на Delhpi 7 через ADOquery:

var i,c_next:integer;
s: string;
mass : array[1..2] of byte;
begin
i:=0;
c_next:=0;
datamodule2.WorkGroup.close;
datamodule2.WorkGroup.open;

for i:=0 to 1000 do
begin

c_next:=c_next+1;
// mass:=c_next div 256;
// mass:=c_next mod 256;
s:=chr(c_next div 256)+chr(c_next mod 256);

datamodule2.WorkGroup.Insert;
// datamodule2.WorkGroup.FieldByName('C_CC').SetData(@mass,false); datamodule2.WorkGroup.FieldByName('c_cc').Value:=s;
datamodule2.WorkGroup.post;
end;
Она служит для заполнения двухбайтового символьного поля DBF таблицы цифрами от 1 до 1000. Все тривиально, НО после того как процедура отработала, в поле наблюдаются аномальные значения. Например, идут цифири: 1,2,3,...,9,10..Кажется, все отлично, затем ...,например, 67,68, 69, 69,69,69,...и 70,71,72, .. , 77,77,77,65,43,78,79...и т.д. ОТКУДА ОНИ БЕРУТЬСЯ ? Сломал всю голову...Причем появляются они уже после того как отработала программа, проверял...Ни кто из знакомых подсказать как решить эту проблемму не смог.
Пробывал под WIN98,WIN2000. Пробовал писать на Delphi5 и 6. На разных компьютерах - результат один и тот же... Грустно...
Пожалуйста , подскажите в чем грабли ?

В том то и дело, что значения передаются верные. Проверял и не раз.
Прога отработала, закрываю ее, открываю DBF на просмотр, например DN-ом и привет, вот они непонятные цифири...

Поле C_CC двухбайтовое поле, а "засандалить 1000" я могу , например, вот так:
c_next:=1000;
s:=chr(c_next div 256)+chr(c_next mod 256);
...insert;
...fieldbyname('C_CC').value:=s;
...post;
Все очень просто...