Форум пользователей MySQL

Я понимаю, что для делфи есть свои форумы, но у меня проблема кажется с mysql.
delphi2007, mysql 4.1, dbExpress, таблица myisam. Не работает код:

procedure Tfrm.Button1Click(Sender: TObject);
var
Id : Integer;
begin
try
   with SQLQuery1 do
   begin
     Close;
     SQL.Clear;
     SQL.Add('LOCK TABLES contragents Write');
     ExecSQL;
     SQL.Clear;
     SQL.Add('Insert into contragents () values ()');
     ExecSQL;
     SQL.Clear;
     SQL.Add('SELECT id FROM contragents ORDER BY id DESC limit 1');
     Open;
     id := FieldByName('id').AsInteger;

     SQL.Clear;
     SQL.Add('UNLOCK TABLES');
     ExecSQL;

     Close;
   end;
except on E:exception do
   begin
     messagedlg('Ошибочное значение :' + E.Message + '!', mtError, [mbOk], 0);
   end;
end;
messagedlg(IntToStr(id), mtInformation, [mbOk], 0);
end;

В таблице автоинкрементное поле Id. Цель: при вставке надо узнать идентификатор вставленной строки и дальше его использовать. На Open программа встает без сообщений, ошибок и т.п. Неужели клиент поставивший блокировку на запись, не может выполнить чтение?
В какую сторону копать, чтобы добиться заданной выше цели?