ReadyState example for Delphi

This example shows how to use the ReadyState property to test whether an asynchronous load is in progress.

if Lead1.ReadyState = rsLoading then
   ShowMessage('Still loading the image');