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;