[Asinkrit]

Кстати, вместо функции Sleep, лучше использовать следующую:

Код:

procedure Delay(dwMilliseconds: Longint);
 var
   iStart, iStop: DWORD;
 begin
   iStart := GetTickCount;
   repeat
     iStop := GetTickCount;
     Application.ProcessMessages;
   until (iStop - iStart) >= DWORD(dwMilliseconds);
 end;

вызов соответственно, вместо Sleep(FAnimStopKadr); - Delay(FAnimStopKadr);

лагов не будет)