[SadKnight]

В общем решение такое

Код:

for i:= 0 to 19 do
begin
t[i] := DBGrid1.DataSource.dataSet.fieldByName('Code').Value[i];
tu:=t[i];
zu:=zu+IntToHex(tu,1);
end;
edit1.Text := zu;