[Maxpoll]

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

Код:

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) но с таким же некорректным результатом/
В чем может быть проблема? Что-то с кодировкой? Как можно обойти эту проблему?