1type
2  TAsyncTaskStatus = (astCreated, astReady, astRunning, astSuccess, astError);

Или

1type
2  TAsyncTaskStatus = TOleEnum;
3const
4  astCreated = $00000000;
5  astReady = $00000001;
6  astRunning = $00000002;
7  astSuccess = $00000003;
8  astError = $00000004;

Элементы перечисления:

Имя	Значение	Назначение
astCreated	0	Создано
astReady	1	Готово к выполнению
astRunning	2	Выполняется
astSuccess	3	Завершено
astError	4	Прервано