[Spynosa]

Código Delphi [-]
try
  timer1.Enabled := false;
  while lo que sea do
  begin
      ....
      ....
  end;
finally
  timer1.Enabled := true;
end;