Трябва да използваш апострофи за ограждането на Nomen. В Делфи ако искаш да напишеш апостроф в стрингова константа се използват два апострофа.
function TFInitMSSQL.isSQLDataBaseIsOK(sTableName: String): Boolean;
var
AdoQ2: TADOQuery;
begin
Result := False;
AdoQ2 := TADOQuery.Create(nil);
try
AdoQ2.Close;
AdoQ2.SQL.Clear;
AdoQ2.ConnectionString := str_ConnNeo;
AdoQ2.SQL.Add(' SELECT * FROM [dbo].[sysobjects] ');
AdoQ2.SQL.Add(' where name=''Nomen'' '); //Това тук са два съседни апострофа, а не кавички
AdoQ2.Prepared := True;
AdoQ2.Open; //тук вече не гърми :-)
if AdoQ2.RowsAffected >= 1 then
Result := True;
finally
AdoQ2.Free;
end;
end;