폼 얼지 않게 sleep 주기

Procedure SleepProc(milisecond : DWORD);
var
maxloop : Integer;
iindex : integer;

begin
maxloop := (milisecond div 50)+(milisecond mod 50);
for iindex := 1 to maxloop do begin
if Application.Terminated then
begin
Break;
Exit;
Application.Terminate;
end;
Sleep(50);
Application.ProcessMessages;
end;
end;


사용예 :   SleepProc(50);