Тормоза при отрисовке формы и компонентов

[Samdron]

Здравствуйте. Заранее прошу прощения, если подобный вопрос уже поднимался ранее.

Есть простой цикл (MF это Form1):

  MF.Show;
  MF.AlphaBlend := True;
  MF.AlphaBlendValue := 0;
  for I := 0 to 127 do
    Begin
      Application.ProcessMessages;
      MF.AlphaBlendValue := I * 2;
      Sleep(1);
    End;

Периодически (не всегда) программа выполняет его так, как будто Sleep(100).
В интернете пишут, что старые компьютеры тормозят, используя свойство AlphaBlend, и я начал уже было думать, что это косяк свойства.
Но. В этой же программе есть такой цикл, перемещающий несколько TLabel по форме:

  MF.AlphaBlend := False;
  MF.Show;
  for A := 0 to 60 do
    Begin
      Application.ProcessMessages;
      if (A <= 36) then
        Begin
          MF.Label3.Top := A;
          MF.Label4.Top := A;
        End;
      if ((A >= 12) and (A <= 48)) then
        Begin
          MF.Label2.Top := A-12;
          MF.Label5.Top := A-12;
        End;
      if ((A >= 24) and (A <= 60)) then
        Begin
          MF.Label1.Top := A-24;
          MF.Label6.Top := A-24;
        End;
      Sleep(1);
    End;

Он ведет себя точно так же (периодически тормозит).

Давным давно много использовал Delphi 6 на AMD Sempron 1.2 GHz и никогда не встречался с такого рода проблемой.

Сейчас использую Delphi 2010 на Intel Core 2 Duo E8400, кстати тот же эффект и на AMD Phenom 965.

Подскажите пожалуйста где собака зарыта? И как с этим бороться?

[Stilet]

Думаю что тормоза дает это: Application.ProcessMessages;
Хотя мне лично кажется что проблема высосана из пальца (без обид)