Laufschrift hängt

[SirThornberry]

doch, wer sollte dich davon abhalten im OnTimer einen Thread zu erzeugen? Allerdings ist es quatsch.
Du kannst auch einfach im Thread ständig prüfen ob es wieder zeit ist:

Delphi-Quellcode:

llastRun := GetTickCount;
repeat
  lTime := GetTickCount();
  if (llastRun + 5000 < lTime) then
  begin
    //DoWhatYouWant (load picture and syncronize to show it)
    llastRun := lTime;
  end;
  sleep(50); //um die CPU-Last gering zu halten, wir müssen ja die Schelife nicht übermäßig oft durchlaufen
until Self.Terminated;