[astrocar]

Hola buenos dias, mi problema es el siguiente estoy haciendo una aplicacion en delphi 7 y estoy usando el componente Tcomport, el asunto es elvia via rs232 los siguientes byte:

25 9B AD 1B A6 AA CD 3F 02 AE 18 CD 3F 00 AE 19
CD 3F 00 AD 0A AE 00 D6 FF FF CD 3F 02 20 EA AE
10 5A 26 FD 81 00

para tal caso me creo un buffer de manera areglo

buffer: arreglo[0..37] of byte

ahora para enviar mi buffer lo hago de la manera siguiente:

var
i;data:byte;
for i:=0 to $25 do
begin
comport1.WriteStr(char(buffer[i]);
comport1.Read(data,i);
mphexeditorex1.Data[i]:=data;
mphexeditorex1.Refresh;
end;

lo que obtengo en mi componente editor que lo estoy usando para ver lo que envio de manera de prueba es esto:

00 25 9B AD 1B A6 AA CD 3F 02 AE 18 CD 3F 00 AE
19 CD 3F 00 AD 0A AE 00 D6 FF FF CD 3F 02 20 EA AE
10 5A 26 FD 81

logico no me muestra el ultimo bayte 00 porque el ciclo for lo tengo hasta $25 que es 37 y eso corresponte al 81 pero si ingremeto ese ciclo a $26 que es 38 si me muestra el ultimo byte que es 00 pero eso no es mi problema mi problema es porque envia ese oo de primero si no estoy enviando eso yo empiezo desde 25 9b ....

Saludos y espero su colaboracion y disculpen si no me explique.
Atten.
Alexander Santana.
Barcelona-Venezuela.