TIdWorkOpUnit

pt 

DoCompleted

pt 

GetOverlapped

pt 

Starting

Complete

Destroy

MarkComplete

Process

RaiseException

Start