[Amilman]

Ошибки ушли но есть еще один вопрос.
В pas файле AfComPortCore
Встречаются строки типа

Код:

constructor TAfComPortEventThread.Create(AComPortCore: TAfComPortCore);
begin
  inherited Create(AComPortCore);
  FOnPortEvent := AComPortCore.FOnPortEvent;
  Resume;
end;

constructor TAfComPortWriteThread.Create(AComPortCore: TAfComPortCore);
begin
  inherited Create(AComPortCore);
  FlushDoneEvent := CreateEvent(nil, False, False, nil);
  FlushEvent := CreateEvent(nil, False, False, nil);
  WriteEvent := CreateEvent(nil, False, False, nil);
  WriteBuffer := TAfCircularBuffer.Create(AComPortCore.FOutBuffSize);
  Resume;
end;

Так как Resume больше не используюется, пользуемся start.
Но тогда при попытке запуска потока я получаю ошибку:
Cannot call Start on a running or suspended thread.

А если я просто удаляю Resume то программа компилируется и даже вроде как работает но как-то не корректно.

Может нужно был сделать все как-то иначе?