[microbiano]

Código Delphi [-]
      
if (not Eof)  then
 begin
  while not Eof do
   begin
     vCampos := vCampos + sc.Trim(oQTempCamposIndices.Fieldbyname('Campo').AsString) + ';';
      next;   
   end; 
 end
else
 Begin
  vCampos := vCampos + sc.Trim(oQTempCamposIndices.Fieldbyname('Campo').AsString);  
end;