ANTICHAT - Показать сообщение отдельно - как отправить запросы модему

Добрый вечер!
У меня возник вопрос с запросами к модему с помощью компонента CPort пишу на Delphi.
как отправить иниц. модему ? отправляю так

PHP код:


		
			
procedure TForm1.initClick(Sender: TObject);

VAR



Data: string;

begin

init_Array[0]:='AT';

init_Array[1]:='AT&V';

ComPort.WriteStr(nit_Array[0]+#13#10); // send test command





ComPort.ReadStr(Data, ComPort.InputCount);





end;

как отправить след команду? после ожидания ответа от первой?
создаю массив команд например

init_Array[0]:='AT';
init_Array[1]:='AT&V';