Mache doch einfach einen Loop über die Felder:
Code:
for i := 0 to qry.FieldCount - 1 do
if qry.Fields[i].DataType = ftString then
qry.Fields[i].AsString := UTF8ToString(qry.Fields[i].AsString);
Sowas in der Art müsste dir doch helfen, allerdings ist mir nicht klar, ob du so wirklich dein Problem mit Zeos richtig löst.