Com-port не работает

hCom := CreateFile('COM4',GENERIC_READ or GENERIC_WRITE, 0, nil,
OPEN_EXISTING, FILE_FLAG_OVERLAPPED,0);
if hCom=INVALID_HANDLE_VALUE then begin
   ShowMessage('не удалось открыть'); //не удалось открыть
    end
    else begin Memo1.Text:=IntToStr(hCom);
    end;

WriteFile(hCom, 'Команда 1', 256, Bytes, nil);
WriteFile(hCom, 'Команда 2', 256, Bytes, nil);

    private
  DCB:TDCB;
  Errors, Bytes : Cardinal;
  TheStruct:TCOMSTAT;
  buffer:string;
  Timeouts: TCommTimeOuts;
 
 
 
var
  Form1: TForm1;
   hCom: THandle=0;
  procedure sendcom(s: string);
 
procedure TForm1.Button1Click(Sender: TObject);
begin
hCom := CreateFile('COM4',GENERIC_READ or GENERIC_WRITE, 0, nil,
OPEN_EXISTING, FILE_FLAG_OVERLAPPED,0);
if hCom=INVALID_HANDLE_VALUE then begin
   ShowMessage('не удалось открыть'); //не удалось открыть
    end
    else begin ShowMessage('удалось открыть');
    end;
 
SetupComm(hCom,1600,1600);   //  установкf размеров внутренних буферов приема и передачи
 
SetCommState(hCom,DCB);        //  чтение/запись структуры DCB порта
with DCB do begin              //  настроить нужным образом
    BaudRate:=12;               //  скорость порта, 115200 деленная на значение
    ByteSize:=8;               //  число информационных бит в передаваемых и принимаемых байтах
    Parity:=NoParity;          //  Бит чесности
    StopBits:=OneStopBit;      //  1 стоповый бит
end;
SetCommState(hCom,DCB);
 
SetCommTimeouts(hCom,Timeouts);    //установка таймаутов
 with TimeOuts do begin
  ReadIntervalTimeout := 1;
  ReadTotalTimeoutMultiplier := 0;
  ReadTotalTimeoutConstant := 1;
  WriteTotalTimeoutMultiplier := 2;
  WriteTotalTimeoutConstant := 2;
 end;
 
Memo1.Text:=IntToStr(hCom);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
    CloseHandle(hCom);
    Form1.Close;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
lpModems : DWORD;
nomer, textsms : string;
begin
nomer := '+375291630378';
textsms := 'Hello, world';
 
 SendCom('AT+CMGF=0' + #13 + #10);
 ShowMessage('Прошло 1');
 Sleep(500);
 
  SendCom('AT+CMGS="' + nomer + '"' + #13 + #10);
  ShowMessage('Прошло 2');
  Sleep(500);
 
    SendCom(textsms + #26);
    ShowMessage('Прошло 3') ;
    Sleep(500);
 
ShowMessage('Наверно записалось');
end;
 
 
procedure SendCom(s: string);
var TempArray: array[1..255] of Byte;
    Count    : Integer;
    TX_Count : cardinal;
    x : LongBool;
begin
 for Count:= 1 to Length(S) do
   TempArray[Count]:= Ord(S[Count]);
 
 x:=WriteFile(hCom, TempArray, Length(S), TX_Count, nil); // пишет строку в порт
 if x=false then ShowMessage('Непрошло');
 ShowMessage(IntToStr(GetLastError));
end;
 
 
procedure TForm1.Button4Click(Sender: TObject);
Var
lpModems : DWORD;
begin
GetCommModemStatus(hCom,lpModems);
Memo1.Lines.Add('CTS='+IntToStr(MS_CTS_ON));
Memo1.Lines.Add('DSR='+IntToStr(MS_DSR_ON));
 
end;
 
end.

BaudRate:=12;

x:=WriteFile(hCom, TempArray, Length(S), TX_Count, nil); // пишет строку в порт
 if x=false then ShowMessage('Непрошло');
 ShowMessage(IntToStr(GetLastError));

procedure SendSMS(AComPort: integer; AMsg: String; ANumTel: String); 
var
  hFile: THandle;
 
  procedure WriteStr(AStr: String); //пишет в порт переданную строку
  var
    LWrited: Cardinal;
  begin
    //Пишем в порт
    WriteFile(hFile, PAnsiChar(AStr)^, Length(AStr), LWrited, nil);
  end;
 
begin
  //открываем порт
  hFile := Windows.CreateFile(PChar('\\.\COM' + IntToStr(AComPort)), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0); 
 
  //если открылся
  if (hFile <> INVALID_HANDLE_VALUE) then
  begin
    try
      //устанавливаем текстовый режим
      WriteStr('AT+CMGF=1' + #$D#$A);
      //вводим номер в формате "+79xxxxxxxxx"
      WriteStr('AT+CMGS="'+ANumTel+'"' + #$D#$A);
      //вводим текст сообщения, только латиница
      WriteStr(AMsg + #$D#$A#$1A);
    finally
      //закрываем порт
      Windows.CloseHandle(hFile);
    end;
  end;
end;