Ya he logrado asignar las variables, pero ahora no quiere insertar los datos a la tabla, mediante sql que puede estar sucediendo, o existe otra manera más directa... Este es mi código hasta el momento, no me da errores pero no funciona:
Código Delphi
[-]procedure TForm1.Button3Click(Sender: TObject);
var
no,fecha,total,cliente,preciou,producto,ci,can:String;
i,j:Integer;
begin
fecha:=Label2.Caption;
for i:=1 to 9 do
begin
if StringGrid1.Cells[0,i]<>'' then
begin
producto:=StringGrid1.Cells[0,i];
preciou:=StringGrid1.Cells[2,i];
can:=StringGrid1.Cells[3,i];
cliente:=StringGrid1.Cells[5,i];
ci:=StringGrid1.Cells[6,i];
total:=StringGrid1.Cells[7,i];
no:=StringGrid1.Cells[8,i];
Query2.SQL.Clear;
Query2.SQL.Add('Insert into factura.db (No_Fac,Fecha,Cliente,Ci_nit,Producto,Precio_u,Can,Total)');
Query2.SQL.Add('Values('+''''+no+''''+','+''''+fecha+''''+','+''''+cliente+''''+','+''''+ci+''''+',' +''''+producto+''''+','+''''+preciou+''''+','+''''+can+''''+','+''''+total+''''+')');
Query1.ExecSQL;
end;
end;
end;