Demora en array (File of Arreglo)

[harimuya]

Gracias Ecfisa por la respuesta,

disculpa por lo datos que no inclui, es cierto los datos son como indicas

Type
VecInt = Array[0..4] of Integer;

FChannel = record
Idx : Integer;
Line : VecInt;
Nom : String[12];
Hora : String[12];
end;

var
DataGraf : FChannel;
Henry: File of FChannel;
Path,Destino: string;
IniGra: Integer;
PosIniX: Integer;
IniIDx : Integer;
LetIni: Integer;
Caract: string;
wData: string;
CadenaSub: string;

Mi pregunta va mas si estructuralmente esta bien, el programa compila y funciona, pero a la hora de generar el archvo demora mucho, paso a explicarte el funcionamiento,
El programa recibe de un Pic 520 muestras de informacion que es relativamente rapido no demora mas de 10 milisegundos, ahi va a estructura, (Data,1250,1155,1200,5,1000,905,1305,605,......), esto lo pasa a un campo Memo, el cual a partir de ahi, lo guarda en "Destino:=Path+'c:\File.Epa';".
al generar el archivo lo prepara y demora casi 200 Milisegundos, a partir de ahi grafica la muestra recibida el cual demora otro 15 milisegundos que es nada,

La gran pregunta es: se puede generar la informacion sin grabar en disco ?? (Write(Henry,DataGraf)

A la espera de sus comentarios.
Gracias