Делаю так:

var Names:string;
begin

Names := (присваивается значение).....
Form1.Query1.Close;
Form1.Query1.SQL.Clear;
Form1.Query1.SQL.Add('Delete from "'+ 'People.DBF'+ '"');
Form1.Query1.SQL.Add('where CODE = '+ '''' + Names + '''');
Form1.Query1.Open;

Записи удаляются, но на последней строке возникает сообщение "Error creating cursor handle". Если убрать Form1.Query1.Open, то ничего не удаляется.
Вот. Подскажите в чём дело.

Спасибо, действительно Query1.ExecSQL