procedure SetTimeOut(proc: TProc; nInterval: Integer = 100);
begin
  TThread.CreateAnonymousThread( procedure
    begin
    Sleep(nInterval);
	// 내부 코드
    TThread.Synchronize( TThread.CurrentThread, procedure
      begin
		// GUI 코드
        proc
      end);
    end).Start;
end;