Main.Query1.sql.Add('delete from dbo.Material where
NN='''+listView1.Items.Item[to_del[i]].Caption+''' and
naim='''+listView1.Items.Item[to_del[i]].SubItems.Strings[0]+''' and
cena='''+listView1.Items.Item[to_del[i]].SubItems.Strings[1]+''' and del=1')