DLL Init, Timer läuft nicht an

[schwa226]

Es geht!

Delphi-Quellcode:

procedure TMainThread.Execute;
begin
  try
    //plugin gets loaded, create Form
    if Not Assigned(frMain) then
      frMain := TfrMain.Create(NIL);

    //start startupdelay
    frMain.StartStartUpDelay(StartDelay);

  while not Terminated do //while aktiv{oder "not Beenden"} do
  begin
    if frMain.StartUpDelay.Enabled then
      Application.ProcessMessages;
    Sleep(1);  //fix 100% cpu bug
  end;
  finally
    if Assigned(frMain) then
      FreeAndNil(frMain);
  end;
end;

Das ProcessMessages lasse ich aber nach dem Startup Delay wieder aus.

Danke!