[Lazarus-es] TFileStream.Read() no lee desde el fichero

[MSc. Ing. Pedro Pablo Oviedo Vera (ENPA)]

primero creo un fichero con el siguiente código:

    afile:=TFileStream.Create('/home/user/consola/prueba.txt',fmCreate
or fmShareExclusive);

    msj:='Hello World'+#10;
    afile.WriteBuffer(pchar(msj)^,Length(msj));
    afile.WriteBuffer(pchar(msj)^,Length(msj));
    afile.Free;   

todo bien,.....luego intento leer desde el fichero prueba con el
siguiente código:

pfile:=TFileStream.Create('/home/user/consola/prueba.txt',fmOpenRead);

     pfile.ReadBuffer(pchar(msj)^,Length(msj));

     pfile.free;     

todo mal....no lanza ningún error pero no se lee nada,....¿por
qué?                     

Saludos
pp

pd: Lazarus 1.02 / Ubuntu 10.10

-- 
MSc. Ing. Pedro Pablo Oviedo Vera
Dirección Técnica y Desarrollo
Empresa de Proyectos e Ingeniería ENPA
Ministerio de la Agricultura
Boyeros y Conill, Piso 10 Edif MINAG, La Habana, Cuba.
Telef. (537)884 7649
(Ubuntu User #34812)