[roman]

Me refiero a que pongas algo como:

Código Delphi [-]
procedure TModificaciones_productos.Button_modificar(Sender: TObject);
begin
  ADOQuery1.close;
  ADOQuery1.SQL.clear;
  ADOQuery1.SQL.add ('UPDATE productos SET producto="'+Edit_prod.Text+'",precio='+Edit_precio.Text+',stock='+Edit_stock.Text+',tipo_prod="'+Edi t_tipo.Text+'"');
  ADOQuery1.SQL.add ('WHERE codigo = '+Edit_codigo.Text+'');

  ShowMessage(ADOQuery1.SQL.Text); // <--- AQUÍ VES LA SENTENCIA FINAL

  ADOQuery1.open;
  try
  except
  end;
end;

Para que veas como quedó la sentencia. Es posible que el problema venga del valor que tiene alguno de los Edits, por ejemplo, que esté vacío.

// Saludos