Доопросить сервер в цикле

[Shouldercannon]

Пришедший ответ помещаю в переменную типа string. Далее выполняю проверку на наличие \final\\queryid\ в пришедшем ответе

if not (Copy(qqq, Pos('\final\\queryid\', qqq), 16) = '\final\\queryid\') then // опросить повторно и опрашивать до тех пор пока в конце не будет \final\\queryid\

Как провести цикл проверки?

Добавлено позже

while not (Copy(qqq, Pos('\final\\queryid\', qqq), 16) = '\final\\queryid\') do //тут опрашиваем