Eviar comandos via Porta Serial

Pessoal boa tarde preciso enviar alguns comandos para um Hardware externo via porta Serial e estou com problemas do tipo:
- Envio um comando só posso enviar um próximo comando quando eu receber a resposta do enviado anterioemente estou usando Delphi 7 com o Async32 com a seguinte estrutura:

Para enviar os comandos

[b:6d9b10a8d9]procedure TForm1.Button1Click(Sender: TObject);
begin
ApdComPort1.OutPut := ´AT´ + #1310;

ApdComPort1.OutPut := ´AT´ + 1310;

ApdComPort1.OutPut := ´AT+CPIN´ + 1310;

end;[/b:6d9b10a8d9]

Para receber a resposta do comando

procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
Porta: TApdComPort;
S: string;
I: Word;
c: Char;
begin
Porta := CP as TApdComPort;
S := ´´;
for I := 1 to Count do begin
C := Porta.GetChar;
if not (C in [0..31]) then begin
S := S + C;
end;
end;
end;

O que acontece é o seguinte quando clico no botão ele envia todos os comandos e depois a porta recebe o resultado de todos os comandos sendo que eu precisava enviar um comando e receber sua resposta
para ver se precisava enviar novamente ou não