TStringField.GetValue trouble

Hello All,

I've found strange behavior of TStringField in Delphi 4
Sometimes AsString returns field value appended with garbage.
As I understood TStringField.GetValue ignores field size (DataSize)
assuming that field value in buffer is always null-terminated.

Is there any way to change GetValue implementation?
I don't want to use separate modified copy of Db.pas

Any help would be appreciated.