with TADOQuery.Create (Self) do begin SQL.Add ('DELETE FROM AGENDA WHERE Nombre = :Nombre'); Parameters.ParamByName ('Nombre').Value := VariableNombre; ExecSQL; end;