[Grunch]

Разбейте последнюю строку с Where на несколько строк:

Код:

DataModule2.ADOQuery1.SQL.Add('WhERE [Дисциплина №1] LIKE:Value1');
DataModule2.ADOQuery1.SQL.Add('or [Дисциплина №2]LIKE:Value2');
и т.д.