TidTCPClient как определить момент чтения?

[igorserg]

Знаю, что не первый задаю этот вопрос, но прошу не ругаться, до конца момента истины так и не дотянул.
В задаче необходимо реализовать SMPP протокол работы с СМС центорм (SMSC). На каждую отправленную команду SMSC присылает результат ее выполнения. Но отправить можно сразу несколько комманд, и в какой момент ловить ответы не понятно. По всякому прочитанному материалу сделал все через таймер:

procedure TSMPP.PDUGet(Sender: TObject);
begin
  timPDUGet.Enabled:= false;

  if TCPClient.IOHandler.Readable(5) then begin
    PDU_Resp_Command_Length:= TCPClient.IOHandler.ReadLongInt;
    PDU_Resp_Command_id:= TCPClient.IOHandler.ReadLongInt;
    PDU_Resp_Command_Status:= TCPClient.IOHandler.ReadLongInt;
    PDU_Resp_Sequence_Number:= TCPClient.IOHandler.ReadLongInt;
    PDU_Resp_Command:= Get_PDU_Command(PDU_Resp_Command_id);
    ...
  end;
  timPDUGet.Enabled:= true;
end;

но почему-то возникают ситуации (например чуть больше поставил задержку таймера), когда к моменту чтения буфер пуст, т.е. условие TCPClient.IOHandler.Readable(5) пройдено а на ReadLongInt возникает ошибка.
Пытался загрузить буфер в поток с параметрами по умолчанию (ReadStream(mem)). Но почему-то не определяется размер буфера... т.е. работает только если явно укажешь размер, а я не знаю какую команду пришлет сервер.

Как правильно и самое главное вовремя оформить чтение ответа сервера?