[Maxpoll]

Привет.
Может ли кто подсказать как разрешить данную ситуацию в Delphi2010? В 2007 всё верно

Код:

1 2 3 4 5 6 7 8 9 10 11 12

Re: TRichEdit; a:string; b: string;   Stream:= TMemoryStream.Create; a:='12345'; re.Lines.Add(a); Re.Lines.Savetostream(stream); b:='67890'; Stream.Write(PChar(b)^, Length(b)*SizeOf(Char)); Stream.Position := 0; Stream.SaveToFile('Путь к файлу');

Так вот когда записывается в Stream переменная B то в ней после каждого символа прибавляется еще один нечитаемый символ.
ТО есть 6х7х8х9х0х
Переменная a записывается корректно.
Первоначально в Stream записывались данные полученные из запрос к БД с помощью (qryBlobAccess.FieldByName(FieldName) as TBlobField).SaveToStream(Stream) но с таким же некорректным результатом/
В чем может быть проблема? Что-то с кодировкой? Как можно обойти эту проблему?