DELAY 썸네일형 리스트형 delay 1000ms -> 1sec procedure delay(Time: Integer); var PastCount: LongInt; begin PastCount := GetTickCount; repeat Application.ProcessMessages; until ((GetTickCount-PastCount) >= LongInt(Time)); end; 더보기 이전 1 다음