[ablievn_imported]

таким:

WHILE (lFile.READ(lChar) > 0) DO BEGIN
lVariant := lChar;
lAdoRS.Fields.Item('BLOB').AppendChunk(lVariant);
END;

lAdoRS.Update;