[[duilioisola]]

Si haces todo en un mismo procedimiento podrías hacerlo de esta manera:

Código Delphi [-]
procedure MiProcedure;
begin
{ 1. envio un comando }
   while (StringRecibido='') do ; {queda dentro del while hasta que recibe algo}
{ 2. recibo respuesta }
{ 3. envio otro comando }
   while (StringRecibido='') do ; {queda dentro del while hasta que recibe algo}
{ 4. recibo respuesta, etc, etc... }
end;