Дублирование записей при Update

[evg_m]

function TfmMain.db_SQL(sql:String;resp:boolean):boolean;
begin
  result:=false;
  zq1.SQL.Text:=sql;
  try
        zq1.Close;
        zq1.ExecSQL;
        result:=true;
   except // при неудачном добавлении  FALSE
   on E:Exception do
       ShowError('Помилка виконання запиту',E.Message);
   end;
end;

sql:=format('UPDATE clients SET dogovor=''%s'',card=''%s'',fio=''%s'',pakid=''%d'',regdata=''%s'',adr=''%s'',fon=''%s'',firmid=''%d'',hispaydatafrom=''%s'',hispaydatato=''%s'',ourpaydatato=''%s'' WHERE id=''%d'';',
[dogovor,card,fio,pakid,datetostr(regdate),adrr,tel,firmid,datetostr(hisdatefrom),datetostr(hisdateto),datetostr(ourdateto),id]);
 if fmMain.db_SQL(sql,false) then // если не удалось обновить то ДОБАВИТЬ !!!
 begin
   ShowMessage('Редактирование клиента');
   sql:=format('INSERT INTO history (clid,date,value) VALUE(''%d'',''%s'',''%s'');',[id,datetostr(now),'Редактирование клиента']);
   if (fmMain.db_SQL(sql,false))<>true then ShowError('Невозможно обновить историю','Ошибка запроса к базе');
   ini.WriteInteger('db','clientid',id);
 end

вот Вам и дублирование при ЛЮБОМ неудачном обновлении.

[Error_kpi]

if fmMain.db_SQL(sql,false) then // если не удалось обновить то ДОБАВИТЬ !!!
begin
ShowMessage('Редактирование клиента');
sql:=format('INSERT INTO history (clid,date,value) VALUE(''%d'',''%s'',''%s'');',[id,datetostr(now),'Редактирование клиента']);
if (fmMain.db_SQL(sql,false))<>true then ShowError('Невозможно обновить историю','Ошибка запроса к базе');
ini.WriteInteger('db','clientid',id );
end

Вопервых если не удалось обновить то НЕДОБАВИТЬ историю.

Вовторых ошибку нашел уже правлю: за что боролись на то и напоролись, подвило следующее:

Естественно, потому они контролируются программно (во время создания базы не знал как выставляются атрибуты полей в MySQL, впервые с этой СУБД работаю).

как оказолось я чтото там не очень хорошо контролировал и в БД оказалось несколько запесей с одним ид, соответственно при редактировании редактируется сразу несколько записей т.к. WHERE id=MyID.
Ошибку осознал. Тему можно закрывать. Недай Бог мне еще раз использовать ключевое поле NULL и неуникальное!!!!!!!!!

[Error_kpi]

К стати баг с дублирование ИД порявился только после добавления 13 клиента. Мистика однако.