How to abort TIdImap4.Connect?

[edwinyzh]

As we know, we can abort any TIdTCPConnection child classes in the OnWork event, including the TidImap4 client component.

But how to abort the connection before the timeout value is reached? 

Thanks.