Recepcion por el puerto serie (ComPort)
 

Hola a todos.
Tengo el siguiente problema.
Para controlar una emisora, que se puede conectar al puerto serie.
Utilizo el componente Comport.
No tengo problemas de enviarle las ordenes con la sentecia:

ComPort1.WriteStr(Cadena+#10#13);

la emisora responde con una serie de lineas.
Necesito:
Que las lineas que responda se almacen en un fichero, para despues analizarlas, y segun lo que tenga que se presente los datos en la pantalla del PC.

O

Analizar cada una de las lineas que me responde y ejecutarlas segun se vayan leyendo.

Lo he intentado con el codigo:
//-------------------------------------
rocedure TForm1.ComPort1RxChar(sender: TObject; Count: integer);
Var
linea :String;
begin
comport1.ReadStr(linea,count);
memo1.Text:=memo1.Text+linea;
writeln (FS,Memo1.text);
end;
//--------------------------------------
Despues leo el archivo y se ejecutan las rutinas.
Esto no me funciona.
Alguna idea?:confused:
Gracias:o