if (Pos('Error', res) = 0) then
begin
res := '';
for i := 0 to Query.FieldCount - 1 do
res := res + Query.Fields[i].FieldName + ';';
res := res + Chr(10);
while not Query.Eof do
begin
for i := 0 to Query.FieldCount - 1 do
res := res + Query.Fields[i].AsString + ';';
res := res + Chr(10);
Query.Next;
end;
end;
end