[Lazarus-es] comportamiento erratico de TBase64EncodingStream

[Rafael Bidegain]

Hola!

una vez mas, les pido una opinion para que me ayuden a comprender que
estoy haciendo mal.

tengo un formulario con (use base64 además de lo usual)
en el formulario tengo dos componentes TMemo y un boton
en el primer tmemo el texto cargado es Memo1 (el valor por defecto) en
el segundo tmemo también tiene el valor por defecto.

en el botón tengo el siguiente código


procedure TForm1.Button1Click(Sender: TObject);
var
buffer       : TMemoryStream;
EncodeStream : TBase64EncodingStream;
begin
     buffer := TMemoryStream.create();
     EncodeStream := TBase64EncodingStream.Create(buffer);
     Memo1.Lines.SaveToStream(buffer);

     buffer.position := 0;
     EncodeStream.Write(buffer, buffer.size);

     buffer.position := 0;
     Memo2.Lines.LoadFromStream(buffer);

     EncodeStream.free;
     buffer.free;
end;

el problema está en que cada vez que presiono el botón obtengo un
valor distinto.
por ejemplo estos:

wHGkt4CZ
gHSkt4CZ
gHWkt4CZ
AHakt4CZ
wHSkt4CZ

he notado que algunas veces los valores que se repiten son solo tres...


-- 
Rafael Bidegain

Ya que los cuerdos no hablan, hablará el loco.
(The Fool, Padraic Pearse)