Agregando articulos a un StringGrid

[ecfisa]

Hola.

Si no entendí mal el problema, tendría que quedar así:

Código Delphi [-]
...
Var
  Precios, Neto, Impuesto, ITBIS : Real;
Begin
  if SG.Row = SG.FixedRows then // ¿ estamos la línea de cabeceras ?
    SG.Row := SG.Row + 1;  // avanzar una linea
  //----------------------------------------------------------
  {
     ... el resto de tu código 
  }
  //----------------------------------------------------------
  SG.RowCount := SG.RowCount + 1; // Agregar otra línea
  SG.Row := SG.Row + 1;           // el siguiente ingreso irá en la línea agregada
end;

Saludos