At Runtime Inside A Procedure Loop - Execute Javascript

[andyhill]

I have a procedure that within the code while loop (while not Query.Eof do begin etc.) I want to Execute 2 Ajax Events (repeated over and over on each record):-

 

                  //////////////////////////////////////////////////////////////
                  //////////////////////////////////////////////////////////////
                  //////////////////////////////////////////////////////////////
                  WaitLoopFlag:= True;
                  UniSession.AddJS('ajaxRequest(fMain.HtmlMemo, ''_sample_'', []);'); // On Completion WaitLoopFlag Is Set To False
                  while WaitLoopFlag = True do begin
                    Sleep(5000);
                  end;

                  //////////////////////////////////////////////////////////////
                  //////////////////////////////////////////////////////////////
                  //////////////////////////////////////////////////////////////
                  WaitLoopFlag:= True;
                  UniSession.AddJS('ajaxRequest(fMain.HtmlMemo, ''_process_'', []);'); // On Completion WaitLoopFlag Is Set To False
                  while WaitLoopFlag = True do begin
                    Sleep(5000);
                  end;

 

My problem is the Ajax Events are never fired when called within a loop, can anyone please advise how to resolve  - thanks in advance