Удаление строк из БД

[Danilka]

bezOn, спасибо! работает =)

[bezOn]

Хотя по хорошему, нужно сделать немного по другому.
Если нам нужно удалить все записи которые равны ListBox1.ItemIdex, тогда проще сделать так.

IDDelete :=  ListBox1.ItemIndex+1;

Query1.SQL.Clear;
Query1.SQL.ADD('DELETE FROM TableName');
Query1.SQL.ADD('WHERE ID = :ID')
   Query1.ParamByName('ID').asInteger := IDDelete;
   Query1.ExecSQL;

{Либо без использования переменной:} 
   Query1.ParamByName('ID').asInteger := ListBox1.ItemIndex+1;
   Query1.ExecSQL;


{Так мы одним махом удалим все записи с ID = IDDelete
Потом просто открываешь таблицу, где этих записей ужо нет...}

Table1.Open;

[bezOn]

Пожалуйста,