Hola Neg90.
Según lo que te entendí, haría:
Código Delphi
[-]
procedure TFormCatalogoLibros.SpeedButton0Click(Sender: TObject);
var
i: Integer;
begin
with StringGrid1 do
begin
for i := 0 to RowCount - 1 do Rows[i].Clear;
Row:= 1;
Carrito.Close;
Carrito.SQL.Text:= 'SELECT * FROM LIBRO';
Carrito.Open;
ColCount:= Carrito.FieldCount; FixedCols:= 0;
FixedRows:= 1;
for i:= 0 to ColCount-1 do
Cells[i,0]:= Carrito.Fields[i].FieldName;
Carrito.Close;
Carrito.SQL.Text:= 'SELECT * FROM LIBRO WHERE ISBN = :PISBN';
Carrito.Prepare;
while Lista <> nil do
begin
Carrito.Close;
Carrito.ParamByName('PISBN').AsString:= Lista.Dato;
Carrito.Open;
while not Carrito.Eof do
begin
for i:= 0 to ColCount-1 do Cells[i, Row]:= Carrito.Fields[i].AsString;
Carrito.Next;
Row:= Row + 1;
RowCount:= RowCount + 1;
end;
Lista:= Lista^.Sig;
end;
end;
end;
Saludos