Динамическое присвоение значения переменной

Alexandr

Динамически создается
q := TQuery.Create(App);
q.SQL.Add('SELECT * FROM TABLE');
q.Open;

и имеется список переменных, находящийся в словаре переменных.
В программе пишу

with frReport.Dictionary do
begin
Variables := 'q.FieldByName(''KONTR'').Value';
.......
end;
и ничего - ошибка! Пробовал и подругому
Variables := 'q.''KONTR'''; и тоже ошибка!
Variables := q.FieldByName(''KONTR'').Value; - если так, то числа передаёт нормально, а строковые данные передает с ошибкой. Например: Если название фирмы ООО "Рога и копыта", то выдает ошибку,что переменная "ООО" не обнаружена!

Подскажите, пожалуйста, что я делаю не так и как нужно правильно?
Заранее спасибо!!!

Leonid

Попробуй так:

Variables := QuotedStr(q.FieldByName(''KONTR'').Value);