TThread reagiert unterschiedlich schnell

[BAMatze]

@Uwe und @mkinzler hab jetzt nach meinen Übergaben an die Form3 ein Refresh der Form aufgerufen und zumindest scheint es jetzt sofort zu reagieren. Muss ich sicherlich noch eine Weile beobachten, ob es eventuell doch noch Probleme gibt aber ansonsten ist jetzt alles so, wie ich mir das gedacht hab.

Hier nochmal die ergänzte Zeile im Quellcode:

Delphi-Quellcode:

if Board.digEingang[1] then Form3.Statusbar1.Panels[1].Text := 'oben'
  else Form3.Statusbar1.Panels[1].Text := 'unten';
  bgeneralDigChannelInput := false;
  bcriticalDigChannelInput := false;
  for i := 1 to 5 do
    begin
      case not(FabDigChannelSignals[i] xor Board.digEingang[i]) of
      false: begin
               DoSingleDigChannelInput(i);
               bGeneralDigChannelInput := true;
               if i in [2..4] then bcriticalDigChannelInput := true;
               FabDigChannelSignals[i] := Board.digEingang[i];
             end;
      end;
      (Form3.findcomponent('CheckBox' + inttostr(i+8)) as TCheckBox).Checked:= fabDigChannelSignals[i];
      if i in [1..2] then (Form3.findcomponent('ProgressBar' + inttostr(i)) as TProgressBar).Position := Board.anaEingang[i]
    end;

  if FbBlinkRedLight then Board.RedLight := not Board.RedLight;

  if bGeneralDigChannelInput then doGeneralDigChannelInput;
  if bCriticalDigChannelInput then doCriticalDigChannelInput;

  Form3.Refresh; // <--eingefügt