いろいろやり方はあるけどLabelの更新頻度を下げるのが手っ取り早い。
データがどれだけ変更されようが画面の更新は1秒に一回未満にするならこんな感じ

lastupdateview := GetTickCount;
while true do
begin
　処理
　if GetTickCount - lastupdateview > 1000 then
　begin
　　lastupdateview := GetTickCount;
　　Synchronize;
　end;
end;