Application not responding while Action done

i tried all possible method in my script to do this action but it still existing.



i think the biggest possible that why the application will be hanging while script doing this action?



i also tried this with Test Complete but it works well in same system. so is possible that caused by test execute?



i posted my script piece like this:



=================================================

procedure QI_LicensePage_UserSelection(aDataID: string);

var

    aButtonName: string;

begin

    aButtonName: = GetCellValue('QI_LicensePage_UserSelection',aDataID,'I_UserSelection');

   

    Sys.Refresh;

    //Sys.Process('QI').VCLObject('frmQIWizard').VCLObject('pnlMain').Refresh;

    //AcceptBtn: = Sys.Process('QI').VCLObject('frmQIWizard').VCLObject('pnlMain').VCLObject('pnlFrameHolder').VCLObject('Licensing').VCLObject('pnlUserSelection').FindChild('Caption','I &accept these terms');

    //Notacceptbtn: = Sys.Process('QI').VCLObject('frmQIWizard').VCLObject('pnlMain').VCLObject('pnlFrameHolder').VCLObject('Licensing').VCLObject('pnlUserSelection').FindChild('Caption','I &do not accept these terms');

    Aliases.QI.QI_frm_Main.Refresh;

    AcceptBtn: = Aliases.QI.QI_frm_Main.QI_TframeLicensing_LicensePage.QI_rb_Accept;

    Notacceptbtn: = Aliases.QI.QI_frm_Main.QI_TframeLicensing_LicensePage.QI_rb_NoWay;

   

   

    Aliases.QI.QI_frm_Main.QI_TframeLicensing_LicensePage.Refresh;

    Aliases.QI.QI_frm_Main.QI_TframeLicensing_LicensePage.RefreshMappingInfo;

    Aliases.QI.QI_frm_Main.QI_TframeLicensing_LicensePage.QI_rb_Accept.Refresh;

    Aliases.QI.QI_frm_Main.QI_TframeLicensing_LicensePage.QI_rb_Accept.RefreshMappingInfo;

   

    if not AcceptBtn.Exists then

    begin

        Log_StepError('The Accept Radio button Does Not Exists!');

        StopWorkflow: = true;

        exit;

    end;

   

    if UpperCase(aButtonName) = UpperCase('Accept') then

    begin

        AcceptBtn.Click;

        Aliases.QI.QI_frm_Main.QI_TframeLicensing_LicensePage.QI_rb_Accept.Refresh;

        Log_StepMsg('Click Accept Button!');

    end

    else

    begin

        Notacceptbtn.Click;

        Aliases.QI.QI_frm_Main.QI_TframeLicensing_LicensePage.QI_rb_NoWay.Refresh;

        Log_StepMsg('Click I do not accept these terms Radio button!');

    end;

====================================================================