Wenn du meinst das die Procedur dann nur alle X Millisecunden aufgerufen wird tu das:

Als erstes brauchst du Windows in der Uses-klausel... dann declarierst du irgendwo
Code: 
LastTime: Integer
und fügst folgendes zu deiner Schleiffenmethode hinzu:
Code: 
Procedure Schleiffe(Sender: TObject;Var done: Boolean);
begin
  done := false;
  if GetTickCount < LastTime + 200 then
    Exit;
  LastTime := GetTickCount;
  //Hier dein Code
end;
Wenn seit dem letztem aufruf von Schleiffe nicht 200ms vergangen sind wird diese wieder mit exit beendet.

Aktualisieren? Hmm... ka... versuchs mal mir RePaint oder sowas ähnlichem Oô