at := 'AT' + chr(13) + chr(10); Sleep(1000); try ComPort.WriteStr(at); try ComPort.ReadStr(resp, ComPort.InputCount); except Result := ''; end; Sleep(1000); except Result := ''; end; Sleep(1000); Result := resp;