Как сделать событие в потоке?

Проблема в том что если я буду перемещать или изменять форму событие не будет срабатывать.

У меня есть событие procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer); компонента TComPort в котором есть ComPort.ReadStr(Str, Count); и если я начинаю мучать форму то это событие не обрабатываеться.

Возможно ли ComPortRxChar завернуть в поток ? И как это сделать ? Или есть другие варианты решения ?