спасибо! но я хотел бы через компоненту
пишу так
procedure TForm1.initClick(Sender: TObject);
VAR
n:integer;
begin
init_Array[0]:='AT';
init_Array[1]:='AT&V';
init_Array[2]:='AT1';
init_Array[3]:='AT2';
For n:=0 to length(init_Array)-1 do
Begin
// showmessage(init_Array[n]);
ComPort.WriteStr(init_Array[n]+#13#10); // send test command

end;

если так делаю то отправляеться 1 запрос со всем массивом
а мне надо чтоб отправился первый запрос получили ответ , потом второй и так далее