Как отправить несколько команд на COM порт

[sttauffen]

Помогите с кодом, не могу отправить последовательно 10 команд на com порт. Тоесть, мне надо нажать на кнопку и происходит отправка 10 команд, 1 команда ушла получил ответ, вторая ушла ответ получил и т.д.


procedure TMainForm.btnSend1Click(Sender: TObject);
var SendStr : String;
begin

if Length ('TForm1.Text) > 0 then
begin
Memo1.Clear;
SendStr := '?54&10';
if cbCRLF.Checked then
SendStr := SendStr+#$0d#$0a;
BComPort1.WriteStr(SendStr);

end;
end;

procedure TMainForm.BComPort1RxChar(Sender: TObject; Count: Integer);
var SendStr: String;

begin

BComPort1.ReadStr(SendStr, Count);
if cbCRLF.Checked then
SendStr := SendStr;
Memo1.Text := Memo1.Text +SendStr

end;