> -- divan писал(а):
> Ведь один REAL занимает 4 BYTES.8.

Смотрите исходник модуля Stores:
PROCEDURE (VAR wr: Writer) WriteReal* (x: REAL), NEW;

Сделайте аналог Stores.Writer|Reader над TCP.

(Давно уж пора сделать бы ...)