Fórum ´Error creating cursor handle´ ENoResultSet - o que eh? #152153

---------------------------
Debugger Exception Notification
---------------------------
Project ProjectArrumaBD.exe raised exception class ENoResultSet with message ´Error creating cursor handle´. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
o que significa esta mensagem?

Ela aparece quando tento modificar os dados de um campo em todos os registros da tabela...
estou fazendo assim:

function LimpaNUmero( MinhaString: string ): string;
var i: integer;
begin
Result := ´´;
for i := 1 to Length(MinhaString)
do if MinhaString[i] in [´0´..´9´] then Result := Result + MinhaString[i];
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
With query1 do
begin
close;
SQL.Clear;
SQL.Text:=´Select * From NFiscal´;
open;
First;
end;
With query2 do
begin
While Not Query1.Eof do
begin
close;
SQL.Clear;
if query1.FieldByName(´CGC_CLI´).AsString<>´´ then
begin
SQL.Text:=´UPDATE NFISCAL SET CGC_CLI = ´+#39+LimpaNumero(query1.FieldByName(´CGC_CLI´).AsString)+39+´ Where Numero =´+39+Query1.FieldByName(´Numero´).AsString+39;
open;
end;
query1.Next;
end;
end;
end;

O que está acontecendo?

[]´s
Tiago Farinon