Функцию формат для формирования запроса по возможности старайтесь не применять, очень сложно без отладки проанализировать результат.
Лучше это делать через параметры, примерно так:
Код:
q1.sql.text := 'insert into address values(:mail_title,:rec_date_change)';
q1.parameters.paramvalue['mail_title'] := q2.FieldByName('mail_title').AsString;
q1.parameters.paramvalue['rec_date_change'] := q2.FieldByName('rec_date_change').AsString
q1.ExecQuery;