Delphi сетевое тестирование

[Равиль2303]

Здравствуйте, при выборе 1 варианта в тесте выходит ошибка:

Операция не возможна. Необходимо обновление запроса.

при выборе ответа происходит:

...viborka:=NewZapros(viborka, Form1.ADOQuery1);
  Vibor(Form1.ADOQuery1);
  randomMemo;...

функция NewZapros:

function NewZapros(OldZapros:String;MyQuery:TADOQuery):String;
var s:string;
begin
 s:='';
 if MyQuery.RecordCount=1 then result:='0'
 else
 begin
 s:=MyQuery.FieldByName('Номер').Text;
 Delete(OldZapros,Pos(s,OldZapros),length(s)+1);
 if OldZapros[length(OldZapros)]=',' then Delete(OldZapros,length(OldZapros),1);
 result:=OldZapros;
 end
end;

при работе на моем компьютере все работает, попробовал на сети вышла эта ошибка помогите пожалуйста.