Метод ValidView.
Поскольку LowMemory проверяется достаточно часто, TApplication имеет метод ValidView, который может вызываться для выполнения необходимой проверки. Используя ValidView, проверка if в последних 8 строках может быть заменена на 2 строки:
DoIt := (ValidView(D) <> nil) and (DeskTop^.ExecView(D) = cmYes;
ValidView возвращает либо указатель на переданный видимый элемент, либо nil, если видимый элемент неверен. Если LowMemory возвращает True, ValidView освобождает видимый элемент и вызывает OutOfMemory.
