TComPort - send AT commands. Two or more commands

[mr_fahrrad]

Hi,
In the code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComPort1.WriteStr('AT' + chr(13));
  ComPort1.WriteStr('ATI1' + chr(13));
end;

Only the first command is executed, how i make to the two command be executed?

[v2afrank]

I guess you send both commands, but the modem ignores the second one.
I would suggest you two wait for the "OK" from the modem before you send the second command

[mr_fahrrad]

There are a easy way to make the command wait until the last command return OK before send?