SQL.Clear;
SQL.Add('INSERT INTO equipocomputo(COMP_ID, COMP_DESCRIP, COMP_ESPECIFICACIONES, COMP_CON_IVA) values(');
SQL.Add(':prComp_id, :prcomp_descrip, :prcomp_especificaciones, :prcomp_con_iva');
if not Prepared then Prepare; for i:= 0 to StringGrid1.RowCount - 1 do begin
Parambyname('prComp_id').Asxx := Stringgrid1.cells[0,i]);
ExecSQL;
next: end;