Работа с ComPort

procedure TFormConnection.ButtonDataOutputClick(Sender: TObject);
var
  ErrorCode: Integer;
  Size, command, ChoiceChannel: Short;
  i: Integer;
  OutputBuffer: Integer;
  InputBuffer: Byte;
  Str: string;
  A: real;
  t: string;
  myDate: TDateTime;
  SqlPar: string;
  MyArray: array [0 .. 7] of Short;
begin
  ErrorCode := WritePort(command, 1);
  if ErrorCode = -1 then
    MessageDlg('Ошибка отправки', MtWarning, [mbOK], 0);
  SqlPar := Choice(ChoiceCommand);
  TimerRead.Enabled := true;
  i := 0;
  While sizeAnswer > 0 do
  begin
    ErrorCode := ReadPort(InputBuffer, SizeOf(InputBuffer));   // одно и тоже. тут и зависает
    if TimerRead.Enabled = false  then
     exit;
    MyArray[i] := InputBuffer;
    Dec(sizeAnswer);
    Inc(i);
  end;
 
  if ErrorCode = -1 then
    MessageDlg('Сделайте подключение или проверьте запущен ли сервер',
      mtInformation , [mbOK], 0);

function TFormConnection.ReadPort(var Buf; Size: Word): Integer;
var
  i: cardinal;
  ovr: TOverlapped;
begin
  FillChar(Buf, Size, 0);
  FillChar(ovr, SizeOf(ovr), 0);
  i := 0;
  Result := -1;
  if (not ReadFile(ComFile, Buf, Size, i, @ovr)) then
    exit;
  Result := i;
end;

procedure TFormConnection.TimerReadTimer(Sender: TObject);
begin
  TimerRead.Enabled:= false;
end;

procedure TFormConnection.FormCreate(Sender: TObject);
Var
  i: Integer;
begin
  for i := 0 to 10 do
  begin
    ComFile := CreateFile(Pchar('COM' + intToStr(i + 1)), GENERIC_READ or
      GENERIC_WRITE, 0, nil, open_existing, file_flag_overlapped, 0);
    if ComFile <> INVALID_HANDLE_VALUE then
    begin
      ListBox1.Items.Add('COM' + intToStr(i + 1));
      CloseHandle(ComFile);
    end;
  end;
end;

procedure TFormConnection.ButtonInterconnectionClick(Sender: TObject);
begin
  W := ListBox1.Items.Strings[ListBox1.ItemIndex];
  Adr := PWideChar(W);
  ComFile := CreateFile(Pchar(Adr), GENERIC_READ or GENERIC_WRITE,
    FILE_SHARE_READ, nil, CREATE_ALWAYS, 0, 0);
  if ComFile = INVALID_HANDLE_VALUE then
  begin
    ShowMessage('Не удалось открыть порт!');
    exit;
  end
  else
  begin
    MessageDlg('Подключено', mtInformation , [mbOK], 0);
  end;
  SetupComm(ComFile, 4096, 4096);
  FormConnection.ComboBoxList.Visible := true;
  GetCommState(ComFile, DCB);
  with DCB do
  begin
    BaudRate := 9600;
    ByteSize := 8;
    Parity := EvenParity;
    StopBits := OneStopBit;
  end;
 
  if not SetCommState(ComFile, DCB) then
  begin
    ShowMessage('Порт не настроен');
    CloseHandle(ComFile);
    exit;
  end;
end;