Не сохранить текст вида ООО "ОГОНЬ"

Приложите пожалуйста проект, так к сожалению не ясна причина.

поправьте данные участки скрипта

//Клиенты
 procedure frmAddClient_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    if CheckDublicate('NewRecord', 'client', 'name', frmAddClient.edName.sqlValue, frmAddClient.Button1.dbGeneralTableId) then
     begin
          frmAddClient.Button12.Click;
     end else
     begin
         frmAddClient.Button10.Click;
     end;
end;

// запрет на дублирование записей
function CheckDublicate (Action, sTable, sField, sValue: string; id: integer;): boolean;
var
   s: string;
begin
     result := False;
     if Action = 'NewRecord' then
     begin
          s := SQLExecute ('SELECT Count(*) FROM '+sTable+' WHERE '+sField+' LIKE ' + sValue);
          if StrToInt(s) > 0 then result := True;
     end;
end;

 procedure frmAddClient_btLogSave_OnClick (Sender: string; var Cancel: boolean);
begin
  if frmAddClient.chNewClient.Checked then
    begin
    //Логирование// при создании нового клиента
     sCurrentDate := '"' + FormatDateTime('yyyy-MM-DD hh:nn', now) + '"';
     sUserName   := '"'+ sUser +'"';
     sOperation := '"Создан новый клиент"';
     sUserPC  := '"'+ GetUserName +'"';
     sClientName  := frmAddClient.edName.sqlValue;
     SQLExecute ('INSERT INTO users_logs (UserPC, datetimeEvent, operation, login, ClientName) VALUES('+sUserPC+',' +sCurrentDate+','+sOperation+','+sUserName+','+sClientName+')');

    end;
    if frmAddClient.chUpdateClient.Checked then
    begin
    //Логирование// при редактировании клиента
     sCurrentDate := '"' + FormatDateTime('yyyy-MM-DD hh:nn', now) + '"';
     sUserName   := '"'+ sUser +'"';
     sOperation := '"Данные по клиенту отредактированы"';
     sUserPC  := '"'+ GetUserName +'"';
     sClientName  := frmAddClient.edName.sqlValue;
     sOldClientName  := frmAddClient.edOldClientName.sqlValue;
     SQLExecute ('INSERT INTO users_logs (UserPC, datetimeEvent, operation, login, ClientName, OldClientName) VALUES('+sUserPC+',' +sCurrentDate+','+sOperation+','+sUserName+','+sClientName+','+sOldClientName+')');

    end;
end;

основная ошибка в том, что вы берете текст с компонента для SQL запроса со свойства Text

 frmAddClient.edName.Text

а нужно

 frmAddClient.edName.sqlValue

скорей всего в других участках скрипта присутствуют подобные ошибки.