readstr + librería Comport

[BlackDaemon]

Hola

Bueno, me respondo a mi mismo con una pregunta, cuando preguntaba de Count que cuanto debería poner es simple, el componente tiene una propiedad llamada ImputCount

Mi código a quedado de esta manera:

Código Delphi [-]
  at := 'AT' + chr(13) + chr(10);
  ComPort.WriteStr(at);
  Sleep(600);
  ComPort.ReadStr(tmp, ComPort.InputCount);
  Sleep(600);

    at := 'AT+CGMM' + chr(13) + chr(10);
    ComPort.WriteStr(at);
    Sleep(600);
    ComPort.ReadStr(tmp, ComPort.InputCount);
    Sleep(600);

    at := 'AT+CGMI' + chr(13) + chr(10);
    ComPort.WriteStr(at);
    Sleep(600);
    ComPort.ReadStr(resp, ComPort.InputCount);
    Sleep(600);
    ShowMessage(resp);

Bueno, el último SHowmessage mi muestra la respuesta del comando AT+CGMI pero NO TODAS LAS VECES, aveces me muestra del anterior, ahí está el problema ahora, alguien que me sepa ayudar??

He probado con varios tiempos, y este es alto y a cada rato y supongo que debería solucionarlo ya, no creo que le tenga que poner 1 minuto no ??

Saludos!