var i:integer;
begin
  tqexec.close;
  tqexec.sql.text := 'update xx set up=:up where pk = :pk';
  tqexec.preapre;      tqquery.close;
  tqquery.sql.text := 'select pk from XX order by OO'
  tqquery.open;
  
  i := 1;
  while not tqquery.eof do
  begin
    tqexec.parambyname('pk').value := tqquery.Fieldbyname('pk').value;
    tqexec.parambyname('up').value := i;
    tqexec.execsql;
    inc(i);
    tqquery.next;
  end;
end;