Utiliza las etiquetas Delphi para que el código se señale correctamente:
Código Delphi
[-]var i,j,nf:integer;
begin
t.rowcount:=(l.items.count div 8)+1;
i:=0;
j:=1;
while i<= l.items.count-1 do
begin
t.cells[1,j]:=l.items[i];
t.cells[2,j]:=l.items[i+1];
t.cells[3,j]:=l.items[i+2];
t.cells[4,j]:=l.items[i+3];
t.cells[5,j]:=l.items[i+4];
t.cells[6,j]:=l.items[i+5];
t.cells[7,j]:=l.items[i+6];
t.cells[8,j]:=l.items[i+7];
t.cells[9,j]:=l.items[i+8];
i:=i+8;
j:=j+1;
end;
nf:=0;
for i:=1 to t.rowcount do
if t.cells[1,i]<>'' then
nf:=nf+1;
t.rowcount:=nf+1;
end;
Y de paso sería necesario que nos dieses algo más de información, como por ejemplo la base de datos que usas. Aunque me parece que lo que necesitas son unas nociones básicas sobre el uso de las bases de datos. Si es así te recomiendo que busques el libro "La cara oculta de Delphi 4" que se encuentra disponible en muchos sitios de la red y creo que te ayudará.