UnlockSupport (ImageList Control) example for Delphi 4

var
bRet : Boolean;
begin
    
    bRet := LEADImgList1.IsSupportLocked(L_SUPPORT_OCR);
    If (bRet) Then
        LEADImgList1.UnlockSupport (L_SUPPORT_OCR, 'yourstringhere');
end;