Ответ меня не интересует. Задачка на подумать и сделать выводы.
Есть Delphi код:

var
  A, B: TField;
  aSqlCondition: String;
begin
  A := CreateField('A');
  B := CreateField('B');

  aSqlCondition := (A = B) and ((A = 'ku-ku') or (B = 1) and (A <> B));

Необходимо реализовать TField так, чтобы занчение aSqlCondition стало

"A=B and (A='ku-ku' or B=1 and A<>B)"

.

ЗЫ: Изменения аргументов ‘A’, ‘B’, ‘ku-ku’, 1 в коде должны приводить к соответствующему изменению результата.