Thread mit Überwachungsfunktion wird blockiert

[divBy0]

Fehlt da nicht ein override?

Delphi-Quellcode:

Type TControlCardControlThread = class(TThread)
  private
    Timer: TTimer;
    FOndigEingang: TOndigEingang;
    FOnanaEingang: TOnanaEingang;
  protected
    procedure Waechter(Sender: TObject);
    procedure Execute; override;                         // <-- HIER
    procedure dodigEingang(iChannel: integer);
    procedure doanaEingang(iChannel, iWert: integer);
  public
    constructor create; reintroduce;
    destructor destroy; override;
    property OndigEingang: TOndigEingang read FOndigEingang write FOndigEingang;
    property OnanaEingang: TOnanaEingang read FOnanaEingang write FOnanaEingang;
end;

Ist das nicht besser so, anstatt mit Timer?

Delphi-Quellcode:

procedure TControlCardControlThread.Execute;
var iIndex: integer;
begin
  while no Terminated do
  begin
    Waechter;  //Waechter muss natürlich angepasst werden wegen Sender: TObject.
    Sleep(50);
  end;
end;