Не могу закрыть СОМ порт

[Demien]

Открываю СОМ порт:

hPort := CreateFile(PChar('COM'+Edit1.Text),
                      GENERIC_READ,
                      0, nil,
                      OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if hPort = INVALID_HANDLE_VALUE then
  begin
   Label1.Caption:='Порт открыть не удалось';
   exit;
  end;

  // Настройки порта
  Dcb.BaudRate := CBR_19200;
  Dcb.Parity := NOPARITY;
  Dcb.ByteSize := 8;
  Dcb.StopBits := ONESTOPBIT;
  DCB.Flags := 20625;
  if not SetCommState(hPort, Dcb) then
  raise Exception.Create('Error setting port state');

  Label1.Caption:='Порт открыт';
  Timer1.Enabled:=True;

На таймере вешаю запуск потока:

beginthread(nil, 1024, @COMRead, nil, 0, th1);

В потоке:

Size:=30;
  ReadFile(hPort, Buffer, Size, NumberOfBytesReaded, nil);
  Form1.Memo1.Lines.Add(String(Buffer));
  ExitThread(0);

Когда наигрался с портом пытаюсь закрыть его:

Timer1.Enabled:=False;
CloseHandle(hPort);
Label1.Caption:='Порт закрыт';

Все работает как часы! До того момента пока я не пытаюсь закрыть СОМ порт. Потом программа виснет "наглухо"...
Что и где я делаю неверно?

[Demien]

Есть наблюдения!
Вся проблемма, как выяснилось опытным путем, не в остключении СОМ порта а в таймере...
Подскажите: Чем заменить таймер (при условии что проверка наличия пакета с ком порта должна проходить не реже 100 милисекунд)?

[raxp]

...а зачем вы вешаете в таймере (потоке) запуск другого потока и потом убиваете?

- пробуем открыть порт
- задаем маску отслеживания сигналов RS-232
- задаем настройки RS-232 (стоп-бит, четность, скорость)
- создаем параллельный поток

При закрытии приложения убиваем поток, закрываем порт.