Запись в ADOTable.Filter

[Miller-1981]

Создал одну выборку ADOQuery1 в нем есть поле [Тема]
есть таблица ADOTable1 которая также содержит поле [Тема].
Мне нужно вывести все данные из ADOTable1, которые равны по полу [Тема] Данным ADOQuery1, проблема в том что данные в ADOQuery1 на русском языке с закорючками и при считывании в дельфи в строку они меняются, поэтому напрямую сравнивать через строку не получается:

while not ADOQuery1.Eof do
begin
if str='' then str:='Тема='''+Trim(ADOQuery1['Тема'])+''''
else str:=str+' and Тема='''+Trim(ADOQuery1['Тема'])+'''';
ADOQuery1.Next;
end;

ADOTable1.Filter:=str;
ADOTable1.Filtered:=true;
ADOTable1.Active := true;