[Kipow]

Saludos, con el primer codigo no es necesario hacer el next siempre, solamente cuando no elimina, ya que al eliminar un registro automaticamente te colocaria en el registro siguiente tu codigo deberia quedar asi:

Código Delphi [-]
    
    Table1.First;
    while Not Table1.EOF do
        if table1.fieldbyname('No_ctrl').asstring=edit1.text then
            Table1.Delete
        else 
            Table1.Next;

Ahora bien con el query que generas no se que componentes estas usando pero el componente TQuery genera un cursor y la unica instruccion que te permite de las DML es SELECT. proba a usar el componente TISQL (lo digo de memoria). o bien creo que hay una forma de abrir el Query en lugar de open con execSQL. que no te regresa un cursor como resultado sino que el numero de tuplas afectadas por la instruccion.

Saludos.