Siguiendo con el asunto del Apro, la forma mas fácil de recibir paquetes es usando el componente
ApdDataPacket, solo requieres conocer el inicio de la cadena y el final de la cadena o al menos uno de ellos.
En protocolos normales se inicia con STX (02h) y termina con ETX (03h), algunos protocolos no tienen un caracter fijo de inicio pero si tienen LF+CR (10h,13h).
Con este componente te olvidas de buscar dentro de los caracteres recibidos el paquete que deseas.
Aqui un ejemplo:
Código Delphi
[-]procedure TLector.ApdDataPacket1StringPacket(Sender: TObject;
Data: String);
begin
Linea := Data;
If (Linea[5] = 'A') then begin
ProcesaInformacion('A');
end;
end;
Saludos.
Edito: Por cierto, este componente APro me lo recomendó Al Gonzalez hace mucho tiempo, gracias Al me ha servido increiblemente.