1-й вариант:
Код:
s:='#A'+ADOQuery3.Fields[0].asString+'<пробел>'+ADOQuery3.Fields[1].asString+'<пробел>'+ADOQuery3.Fields[2].asString+'<пробел>'+
и т.д. по количеству полей начиная с нулевого поля.
2-й вариант:
Код:
var
i:integer;
...
твой запрос
...
for i:=0 to ADOQuery3.FieldCount-1 do
s:=s+'<пробел>'+ADOQuery3.Fields[i].asString;
s:='#A'+s;
Если полей не сильно много - я бы взял 1-й вариант
