En un dbgrid

[roman]

Empezado por alcides

Que he dejado de hacer.

Pues justamente eso, pasar a la siguiente línea:

Código Delphi [-]
if selectedindex < (fieldcount -1) then
  selectedindex := selectedindex +1
else
begin
  selectedindex := 0;
  DataSource.DataSet.Next;
end;

Por cierto, he visto que has formateado el código en tu mensaje usando etiquetas [b]. Te comento que puedes encerrar todo el código entre etiquetas [delphi] lo cual dara formato automáticamente al código sin necesidad de poner etiquetas en cada palabra reservada. Además con esto se preservarán las indentaciones.

// Saludos