[ContraVeneno]

Código Delphi [-]
 for i:=fila_ini to fila_fin do begin
 ADOTable1.RecNo:=i;
 for j:=columna_ini to columna_fin do begin
  cad:=cad+adotable1.Fields[j].AsString+', ';
 end; //for j
    end; //for i
    showmessage(cad);

me cuentas que pasa con esos cambios.